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0001 C IDENT (*V04-000'), | 
000 { ++ 
000 ARBALALAALAALLALELELESS LESSEE TEE E SESE SESE AEC ESC ELESAESAEALAASALAEALIEE ESA 
0004 ee ® 
0005 ** COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ‘ | 
0006 ** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ta D4 - ALL RIGHTS RESERVED. ® 
® 
0009 ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0010 ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0011 ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
pots ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
001 ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bole a TRANSFERRED. * 
® ® 
bole ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0017 ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Sots in CORPORATION. * 
® e 
0020 ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oe) on SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
® 
0023 ee ri 
Sose PARRA AESSLLALALELELLELESEL ESSE SESE EES ESAS ECSU CECE C ESE SESE AEC S LESS CESSES a SS SY 
0026 
0027 
0028 | 
94 FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 
0031 ABSTRACT: This facility is used to create, modify, and optimize 
OO3s FDL specification files. 
ted ENVIRONMENT: NATIVE/USER MODE 
44 AUTHOR: Ken F. Henderson Jr. 
| 
its CREATION DATE: 27-Mar-1981 
sine MODIFIED BY: 
0042 V03-011 RRBO009 Rowland R. Bradley 22 Jan 1984 | 
004 Enhancement for display of # of buckets in index, 
0044 # pages to cache index, and average # key exams. | 
0046 v03-010 KFHOO10 Ken Henderson 8 Aug 1983 
snk Changes for seperate compilation. 
0049 v03-009 KFHOO09 Ken Henderson 27 Jul 1983 
0050 Fix to CALC_ALLOC to prevent div by 0. | 
0051 Fixed record and bucket overhead 
4 calculations in prologueS_buckets and 
B037 prologue3_depth. 
0055 vO3-008 KFHOOOS = Ken Henderson 27 May 1983 
0038 Fix insertion of DATA_RECORD Conpnes3 sen 
005 into database to only do it for Key 0. 
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di, 
| 

0058 
0059 v03-007 ec woe? Ken Hen ereey 26 Apr 1983 | 
0060 Fix location of br ekpern right 
0061 Add reset of IDATALEDFSK_ Y cats * /MIGH/INCRI 
006 in SE GRAPH. Clean u 
006 ASK REY SIZE, ASK_KEY_POS{ TIO 
0064 Move call to ASK_GLOBAL OBANTED 
Bpe? to APPEND_DEF. 
0067 V03-006 KFHO006 Ken Henstorson 14 Apr 1983 | 
0068 Removed mandatory VIEWs after 
0069 each d sign. s cnenged LibSwait(5.0) 
0070 to (3, k ou DESIGN STYLE. 
0071 Consolidated. PLot Sine Ate GRAPH 
007 and PLOT_SURFACE_GRA Kdded 
007 SHUF FL OT AREAS and MERGE. A REA 
oot to inolSeont GRANULARITY. 
0076 vO3-005 KFHOO0S Ken Henderson 20 Jan 1983 | 
0077 Added support for DEPTHPOINTs 
dh and removed references to DASH. 
0080 v03-004 KFHO004 Ken Henderson 22 Nov 1982 
0081 Combined SURFACE_DESIGN and 
siet4 LINE_DESIGN into one routine. 
0084 v03-003 KFHOO03 Ken Henderson _ 8 Sept 1982 

Modified most references to main 

variables to fit with database 

reorganization. 

KFHOOO2 Ken Henderson 23-Mar-1982 

Modified several routines to fix FT2 

GAR 746 

KFHOO01 

Modified several cout ines to fix FT2 

QARs 509,559,510,574 


Ken Henderson 17-Mar-1982 | 
| 
| 
| 
} 
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ENVIRONMENT ("LIBS:EDFDESIGN'), 


INHERIT ( 


S5S0558 
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$:FDLPARDEF' 


MODULE EDFDESIGN (INPUT,OUTPUT); 
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PROLOGUE3_BUCKETS == Routine to calculate the number of buckets at a level. 


This routine combines the various file parameters of a prologue3 file and 
calls itself recursively to find the number of buckets at each level. 


CALLING SEQUENCE: 


PROLOGUES_BUCKETS (INIT_NUMBER_RECORDS ,ADDED_NUMBER_RECORDS, INDEX_LEVEL); 


INPUT PARAMETERS: 


NUMBER_RECORDS 
INDEX_CEVEL 


IMPLICIT INPUTS: 
VARIABLE_RECORDS 
BDATACEDFSK_KEY_DUPS 


IDATACEDFSK_KEY SIZE 
IDATALEDF $K MEAN _RECORD_SIZE3 


RDATACEDF$K-LOAD_ 
BYTES_PER_BOCKET 


OUTPUT PARAMETERS: 
none 

IMPLICIT QUTPUTS: 
INIT NUMBER BUCKETS 
ADDED NUMBER _BUCKETS 
DEEPEST 

ROUTINES CALLED: 


PROLOGUE3 BUCKETS 
L1B$SIGNAC 


ROUTINE VALUE: 
none 
SIGNALS: 


EDFS_CTRLZ - if a file > 31 index levels was spec'd 


SIDE EFFECTS: 
none 
--) 
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174 PROCEDURE PROLOGUE3_BUCKETS ( 0 
175 INIT _NUMBER_RECORDS : INTEGER; 0 
178 ADDEB_NUMBER_RECORDS : INTEGER; 0 
17 INDEX_LEVEL : INTEGER 0 
girs ); 0 
179 0 
0180 VAR 0 
0181 INIT_RECORDS_PER_ BUCKET INTEGER; 0 
018¢ ADDED_RECORDS PER_BUCKET =: INTEGER; 0 
018 RECORD RHEAD : INTEGER; Q 
0184 RECORD SIZE : INTEGER; 0 
3 5 INIT AVAILABLE _BYTES : INTEGER; | 0 
1 ADDED_AVAILABLE_BYTES INTEGER; | 0 
0187 KEY_SAVINGS : INTEGER; 0 
0188 DATA SAVINGS : INTEGER; 0 
0189 INDER_ SAVINGS : INTEGER; 0 
0190 BUCKET OVERHEAD : INTEGER; 0 
0191 TEMP_REC : INTEGER; 0 
B36 : BOOLEAN; 0 
019 0 
0194 BEGIN 0. 
0195 0 
0196 { + | 0. 
4414 Level 0 is the data level, calculate the filling of the data buckets. 8 
0199 BUCKET_OVERHEAD := CALC_BUC_OVERHEAD(INDEX_LEVEL); 0 
asee RECORD_OVERHEAD := CALC_REC_OVERHEAD(INDEX_LEVEL); 8 
pce IF INDEX_LEVEL = 0 THEN 0. 
020 0 
0204 BEGIN 0. 
0205 ‘ 0) 
0206 IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN | 0 
0207 0. 
0208 BEGIN 0) 
0209 0 
0210 { + 0. 
0211 DATA BUCKET 0. 
osi¢ -) 0 
021 0 
0214 { + 0 
0215 Combine the two compression factors to get one to weight the record 0 
0216 size by. 0 
0217 - } | 8 
0218 KEY_SAVINGS 32 
0219 TRUNC CIDATACEDFSK_KEY_SIZE] * RDATACEDFSK_DATA_KEY_COMP)); 0 
0220 DATA_SAVINGS := 0 
0221 TRUNC ((IDATACEDFSK_MEAN ne cone SIZE] = IDATACEDFSK_KEY_SIZEJ) 0 
a888 * RDATALEDFS$K_DATA_RECORD_COMPJ); 9 
0224 { + 0 
OSse The ‘actual’ record size will have the compression subtracted from it. 
0337 RECORD Size := 
0 $8 IDATACEDFSK_MEAN_RECORD_SIZE] = (KEY_SAVINGS * DATA_SAVINGS); 
$380 END { IF TRUE KEY = 0 } 0 


Now that we've figured out the overheads, how many records can we fit 
in a bucket at this level? 


SOOoooocooooo 


Mororornorforfors 


Se ES SaVSORANISS 


{ + 
First figure out how many bytes are available to use for records. 


INIT_AVAILABLE_BYTES : 
TRUNC ((BYTES PER_BUCKET 
ADDED_AVAILABLE_ BYTES : 
TRUNC ((BYTES_PER_BUCKET 


MMT 


LEAF 


BUCKET_OVERHEAD) * RDATACEDFSK_LOAD_FILLJ); 
BUCKET_OVERHEAD) * RDATACEDFSK_ADDED_FILL}); 
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0231 0 
0 ¢ ELSE 0 
0 0 
9 BEGIN g 
0236 { + Q 
0237 SIDR BUCKET 0 
0939 i | 0 
0240 INDEX_ SAVINGS := | 0 
ose) TRUNC (CIDATACEDFSK_KEY_SIZE] * RDATACEDFSK_DATA_KEY_COMP)); 
0348 TEMP_REC := IDATACEDFSK_KEY_SIZE] = INDEX_SAVINGS; 
0245 TEMP_REC := TEMP_REC + 
bees (IDATATEDFSK_NUMBER_DUPS] * IRCSC_RRVOVHSZ3); | 
bees RECORD_SIZE := TEMP_REC DIV (IDATACEDFSK_NUMBER_DUPS] + 1); | 
0630 IF (TEMP_REC MOD (IDATACEDFSK_NUMBER_DUPS] + 1) <> 0) THEN | 
025 RECORD_SIZE _:= RECORD_SIZE + 1; | 9 
0254 END; IF FALSE KEY = 0) | 9 
0956 END { IF TRUE INDEX_LEVEL = 0 (DATA LEVEL) } 4 
0258 ELSE 0 
a c. sere 
oso! For the index levels (L>0), the overheads are as follows. 4 
0368 BEGIN g 
ogee { + | 0! 
0266 INDEX BUCKET 0 
os0 - >) 0! 
0268 0 
026 INDEX_SAVINGS := 0 
027 TRUNC (IDATACEDFSK_KEY $126) * RDATACEDFSK_INDEX_RECORD_COMP)); 0 
zr RECORD_SIZE :=" IDATACEDFSK_KEY_SIZE] =" INDEX_SAVINGS; 4 
r END; { IF FALSE INDEX_LEVEL = 0 } | 8 
? {+ | 0 
| 


ooo 


— 
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{ + 
The number of records that will fit is simply the space available 
divided by the space for each record. (integer division) 


INIT RECORDS _PER_BUCKET := 
INIT AVAILABLE_BYTES DIV (RECORD SIZE + RECORD_OVERHEAD); 
ADDED_RECORDS PER_BUCKET := 
ADDED-AVAILABLE_BYTES DIV (RECORD_SIZE + RECORD_OVERHEAD); 


{ + 
CONVERT or RMS will put at least one (1) record in a data level bucket. 
And it will put at least two (2) records in an index level bucket. 


IF CINDEX_LEVEL = 0) AND CINIT_RECORDS_PER_BUCKET < 1) THEN 


ADDED_NUMBER_ BUCKETS CINDEX_LEVEL] := 
ADDED _ NUMBER BUCKETS CINDEX_LEVELJ + 1; 


E 

V 

0 

0 

0 

0 

0 

0 

0 

| 0 

Q 

0 

| 0 

0 

| 0 

| : 

INIT_RECORDS_PER_BUCKET := 1 0 

ELSE IF CINDEX_LEVEL > 0) AND (INIT_RECORDS_PER_BUCKET < 2) THEN 
INIT_RECORDS_PER_BUCKET := 2; 0 

344 IF CINDEX_LEVEL = 0) AND (ADDED_RECORDS_PER_BUCKET < 1) THEN | $ 
oath ADDED_RECORDS_PER_BUCKET 7s 7 4 
0318 ELSE IF CINDEX_LEVEL > 0) AND (ADDED_RECORDS_PER_BUCKET < 2) THEN | 4 
Bel2 ADDED_RECORDS_PER_BUCKET 3 23 
O31? { + Record the number of buckets for Later. | 4 
0319 RECS_PER_BUCKET CINDEX_LEVEL] r= 0 
Bese INIT_RECORDS_PER_BUCKET + ADDED_RECORDS_PER_BUCKET; $ 
Bese {+ 0 
O37 Now record the number of buckets at this level. ° 
0395 INIT_NUMBER BUCKETS CINDEX LEVEL] := | 1 
0326 NIT_NUMBER_RETORDS DIV INIT_RECORDS_PER_BUCKET; 1 
Ose? ADDED_NUMBER_BUCRETS CIRDEX LEVEL) := 1 
Oe : ADDED_NUMBER_RETORDS DIV ADDED_RECORDS_PER_BUCKET; | . 
0356 {+ 1 
O33 If there was a remainder, we need just one more bucket at this level. | : 
0 4 IF CINIT NUMBER_RECORDS MOD INIT_RECORDS_PER_BUCKET) <> 0 THEN . 
i INIT _NUMBER_BUCKETS CINDEX_LEVEL] := | 1 
INIT _NUMBER_BUCKETS CINDEX_LEVELJ + 1; . 

5 IF (ADDED_NUMBER_RECORDS MOD ADDED_RECORDS_PER_BUCKET) <> 0 THEN | ' 

1 

1 

1 

1 

1 


OoooCCCCCCO 
FESS EAS 


ewn-O 


{ + 
Save .he number of buckets for later if this is key 0. 
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They are used in global buffer count calculations. 
IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 
BEGIN 
INIT_PRIMARY BUCKETS CINDEX_LEVELJ := 
INIT NUMBER BUCKETS CINDEX_LEVELJ; 


ADDED_PRIMARY_BUCKETS CINDEX-LEVELJ := 
ADDEB_NUMBER_BUCKETS CINDEX_LEVELJ; 


Ooo 
uw 


PADIS 
ONAUNEWN—OOONO 


WAI 


{ + 
Bump the high-water marker. 
DEEPEST := INDEX_LEVEL; 


EREES 


{ + 
If we're at the data level, or we had more than one bucket at this level, 
~~ repeat the calculations for the next level up (down?). 


3 3 


E 
V 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
IF ( | 
CINDEX_LEVEL = 0) | 
CINIT_NUMBER_BUCKETS CINDEX_LEVEL] > 1) | 
(ADDED _NUMBER_BUCKETS CINDEX_LEVEL] > 1) 

) THEN 


BEGIN 


iw 


| 
{ + | 
In_ the index, the records merely point to buckets. 
| 
| 
| 


380 IF INDEX_LEVEL = 0 THEN 

382 BEGIN 

38 ‘ 

384 FOUND := FALSE; 

386 IF OPTIMIZING THEN 

387 
8 BEGIN 

90 POINT_AT_ANALYSIS; 

398 FOUND := FIND_OBJECT (SEC,ANALYSIS_OF_KEY, 

9 {DATACEDFSKk_ACTIVE_KEY), 
94 LEVEL1_RECORD_COUNT,0); 


oo DOOCCCSCOCOCOCOCCOOCOOOOCOOOCOoOOO SOooooo°o°oo Oooooo 
SANS SSNS 3 
WDONOVEWN—OOOn 
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POINT_AT_DEF INITION; 
END; 
IF FOUND THEN 


: 


o 
= 
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BEGIN 
WRITELN (SHIFT,ANSI_REVERSE, 
*' A File of Greater than 31 Index Levels has been specified. ', 
ANSI_RESET); 
LIBSWAIT (3.0); 
LIBSSIGNAL (EDFS$_CTRLZ,0,0,0); 


SRGERE 


oe BEGIN 

a INIT _NUMBER_RECORDS := DEF _CURRENT* .NUMBER; 
89 END | 
oS ELSE | 
19 BEGIN | 
\ INIT_NUMBER_RECORDS := INIT NUMBER_BUCKETS CINDEX_LEVELJ; | 
14 ND; 
i ~~ 
1 
\8 ELSE | 
31 BEGIN 
¢ INIT _NUMBER_RECORDS := INIT_NUMBER_BUCKETS CINDEX_LEVEL); | 
¢ END; | 
3 ADDED _NUMBER_RECORDS := ADDED_NUMBER_BUCKETS CINDEX_LEVELJ; | 
$ INDEX_LEVEL := INDEX_LEVEL + 1; | 
= Pathological file here = tell the user and pop him up. | 
3 IF INDEX_LEVEL > 31 THEN 
| 


EEE 
NOUS WN—O 


{ + 
re Recurse to the next level. 
50 PROLOGUE3_BUCKETS ( 
51 INI T_NUMBER_RECORDS 
3 ADDEB_NUMBER_RECORDS, 
3 sNDEX LEVEL 


END; 
END; { PROLOGUE3S_BUCKETS } 


RRLRRRELLRRELERELELRLLRELERRELERELERELERERERRREEREE EE 
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6 PROLOGUE3_DEPTH == Routine to calculate the depth of a prologue3 index. ! 
64 This routine combines the various file parameters of a proloque3 file and 1 
65 "builds® and index from the data level “9 to the root te *9nd its depth. : 
gc6? CALLING SEQUENCE: | 
8298 DEPTH := PROLOGUE3_DEPTH; ] 
eg INPUT PARAMETERS: | 
bers none 1 
0474 | 1 
0475 IMPLICIT INPUTS: 1 
0476 1 
0477 TOTAL_RECORDS 1 
0478 IDATACEDF$K_BLOCKS_IN_BUCKET) 1 
0479 DEEPEST 1 
0480 | 1 
0481 OUTPUT PARAMETERS: 1 
re) 1 
048 none 1 
0484 1 
0485 IMPLICIT OUTPUTS: 1 
0486 1 
0487 BYTES PER_BUCKET 1 
0488 NUMBER_BUCKETS 1 
0489 1 
0490 ROUTINES CALLED: 1 
0491 1 
4 PROLOGUE 3_BUCKETS 1 
049 1 
0494 ROUTINE VALUE: 1 
0495 1 
0496 Depth of the index 1 
0497 1 
0498 SIGNALS: 1 
0499 1 
0500 none | 1 
0501 1 
Bane SIDE EFFECTS: 1 
$864 
5 none 1 
0505 1 
0506 -- } 1 
1 
1 
1 
a] 
| 
1 
| 


K 4 
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8 He FUNCTION PROLOGUE3_DEPTH : INTEGER; 
0510 VAR 
11 BUCKET_OVERHEAD INTEGER; 

21§ RECORD_OVERHEAD INTEGER; | 
051 RECORD_SIZE INTEGER; | 
0514 I INTEGER; 
0315 

218 BEGIN 
051 
0518 { + 
921? Clear out the arrays that holds the number of buckets per level. 

0521 FOR I := 0 TO 31 DO | 
05 ¢ 

82 ? BEGIN 

0525 INIT_NUMBER_BUCKETS (J) = 0; 

0526 ADDEBD_NUMBER BUCKETS [1] = 0; 

0527 RECS_PER_BUCRET C1) = 0; 

0359 END | 
$380 , 
0531 { + 

0336 Convert block/bucket to bytes/bucket. 

0334 BYTES_PER_BUCKET := IDATACEDFS$K_BLOCKS_IN_BUCKET] * 512; 

0536 : 

Deen Reset depth and calculate how deep the index will be. 

0539 DEEPEST := 0; 

0540 

0541 { + 

O26 Figure depth only if the record will fit in the bucket. 

Seti orhervise flag it. 

0545 BUCKET_OVERHEAD := CALC_BUC_OVERHEAD (0); 

g2¢$ RECORD_OVERHEAD := CALC_REC_OVERHEAD(0); 

oee8 IF IDATACEDFSK_MAX_RECORD_SIZE] = 0 THEN 
0550 RECORD_SIZE := CUR_MAX_REC | 
a ese 
055 | 
2238 RECORD_SIZE := IDATACEDFSK_MAX_RECORD_SIZE]; 

55 { + 
§a2$ Only do the depth calculation if the record will fit in the bucket, 
$338 and the key will fit in the record. 

0560 IF (¢ 

0561 $44 F PER_BUCKET = (BUCKET_OVERHEAD + RECORD_OVERHEAD)) >= 

p20¢ pont EDF S$K-MEAN_RECORD_SIZE7) 

be64 (RECORD_SIZE >= (IDATACEDFSK_KEY_SIZE] + IDATACEDFSK_KEY_POSITION))) 


4 
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565 ) THEN { 
208 1 
56 BEGIN 1 
0568 1 
0369 CASE IDATACEDFSK_LOAD_METHOD] OF | 
0571 EDFSK_FAST_CONVERT : | 
0378 RDATALEDFSK_LOAD_FILL] := IDATACEDFSK_DESIRED_FILLJ / 100.0; | } 
0378 EDFSK_NOFAST_CONVERT : 
0377 IF BDATACEDFSK_ASCENDING_LOAD] THEN | 
0579 RDATACEDF $K_LOAD_FILLJ 32 1 
9380 .90°* CIDATACEDFSK_DESIRED_FILLJ / 100.0) 
0382 ELSE 1 
058 1 
0584 RDATALEDF$K_LOAD_FILLJ i= 1 
O38? 0.6687 * (IDATACEDFSK_DESIRED_FILL] / 100.0); 
0587 EDFSK_RMS_PUTS : 1 
0588 | ‘ 
0589 BEGIN | ; 
0590 1 
0991 IF BDATACEDFSK_ASCENDING_LOAD] THEN 
0598 RDATALEDF$K_LOAD_FILLI 3 | 
0394 .907-* (IDATACEDFSK_DESIRED_FILLJ / 100.0) | 
0596 ELSE 
0597 
0598 RDATACEDF$K_LOAD FILL] : | 
0599 0.6657 * (IDATACEDFSK_DESIRED_FILLJ / 100.0); | 
IDATALEDFSK_FDL_FILL] = 100; | 
END; | 
OTHERWISE 


{ NULL=STATEMENT } ; 
END; { CASE } 


gg TenenessesepepUElES 


: IF BDATACEDFSK_ASCENDING_ADDED) THEN 

§ RDATALEDF $K_ADDED_FILLJ := 0.90 

5 ELSE 

$ RDATALEDF$K_ADDED_F ILL) := 0.6667; 

3 PROLOGUE 3_BUCKETS (IDATALEDF$K_INITIAL_COUNT), IDATACEDF$K_ADDED_COUNT),0); 
1 {+ 


——— ne — 
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86 § The deepest we went is the function value. 
0624 PROLOGUE3_DEPTH := DEEPEST; 
0625 
be : END 
0628 ELSE 
0629 
oS 9 PROLOGUE3_DEPTH := 0; 
0632 END;  { PROLOGUE3_DEPTH } 
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06 : { ++ 
| 
08 ° NATURAL _DEPTH == Find most typical depth of file. 
0638 This routine does calculations to find owt the most reasonable bucketsize 1 
0639 for an index. 1 
0640 1 
say CALLING SEQUENCE: 
Oss BUCKET_DEFAULT := NATURAL_DEPTH; 
Bet? INPUT PARAMETERS: 1 
0647 none 1 
pe28 IMPLICIT INPUTS 
0650 ; 1 
0651 none 1 
| Reee 1 
065 OUTPUT PARAMETERS: 1 
bess 
none 
pees IMPLICIT OUTPUTS | 
0658 : | 1 
0659 COLOR_ROW 1 
0660 1 
0661 ROUTINES CALLED: | 1 
08 1 
066 none 1 
0665 ROUTINE VALUE: | 
0666 4 | 1 
0667 BUCKET_DEF AULT 1 
0668 1 
0669 SIGNALS: 1 
0670 1 
0671 none 1 
067 1 
067 SIDE EFFECTS: 1 
0674 1 
0675 none 1 
0676 1 
0677 -- } 1 


ee niet pinteoees — 
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0678 CGLOBAL] FUNCTION NATURAL_DEPTH : INTEGER; | } 
0681 VAR | 1 
068 DEPTH : ARRAY (1..BKTSC_MAXBK KTsiZ) OF INTEGER; | 1 
068 : ARRAY (£1..BKTSC"MAXBKTSIZ] OF REAL; 1 
0684 LORRENT WEIGHT : REAL; 1 
0685 CURRENT- TALLY : REAL; 1 
0686 MAX _TALCY : REAL; 1 
0687 TEM MP DIST : INTEGER; 1 
0688 LEFTADJ RANGE : INTEGER; 1 
0689 CURRENT _DBEPT : INTEGER; 1 
0690 RAN ANGE : INTEGER; 1 
0691 MAX_RANGE INTEGER: 1 
069 MIN~BKS INTEGER; 1 
069 1 
0694 1 
0695 1 
0696 PROCEDURE EXTEND_INDEX_INFO (VAR EXAMPOINT, 1 
0697 NUMPOINT | 1 
0698 PAGEPOINT, | 1 
44 c BREAKPOINT : INTEGER); . 
+ 
0701 Calculate and save more index information. 1 
0702 -} 1 
0703 VAR 1 
0704 I : INTEGER; 1 
0705 | 1 
0706 BEGIN 1. 
0707 IDATA, CEDF SK _BLOCKS_IN_BUCKET] = BREAKPOINT; 1 
0708 TEMP = PROLOGUE3_DEPTH; 1 
0709 EXAMPOINT = 0; 1. 
9710 NUMPOINT := 0; | 1 
0712 FOR I := 1 TO 31 DO 1 
ere — 
0715 EXAMPOINT := EXAMPOINT + RECS_PER_BUCKET (1); f 1. 
0716 NUMPOINT := 1. 
taba NUMPOINT + INIT_NUMBER_BUCKETS CI] + ADDED_NUMBER_BUCKETS (1); ' 
0719 END; { FOR } | 1 
0720 | 1 
0721 EXAMPOINT  := EXAMPOINT DIV 2: 1 
O7ee PAGEPOINT = NUMPOINT * BREAKPOINT; 1 
O55¢ END; { procedure EXTEND_INDEX_INFO } 
0726 
0727 c*¢ ; 
0728 Main Function Begins Here 
$780 BEGIN 
0731 
073¢ BREAKPOINT_RIGHT := 0; 
073 
0734 { + ; 
735 Fill the depth array with the depths at each bucketsize. 


sam 


0740 
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Source Listing ifese -Sep-1984 
And zero out the tally array. 
FOR RANGE := 1 TO BKTSC_MAXBKTSIZ DO 
BEGIN 
IDATA core BLOCKS_IN_BUCKET) 
DEPTH sey 
TALLY RANGE 


END; { FOR } 


{ + 
| up the lengths of the ranges. 


CURRENT _WEIGHT := 1.0; 
CURRENT_DEPTH = 0; 
CURRENT_TALLY := 0; 


FOR RANGE := BKTSC_MAXBKTSIZ DOWNTO 1 DO 
BEGIN 
IF DEPTHCRANGE] = 0 THEN 
BEGIN 
IF RANGE < BKTSC_MAXBKTSIZ THEN 
IF DEPTHCRANGE+1) > 0 THEN 
TALLYCRANGE +1) := CURRENT_TALLY; 
TALLYCRANGE) := 0; 
END 
ELSE IF DEPTHCRANGE] > CURRENT_DEPTH THEN 
BEGIN 
IF RANGE < BKTSC_MAXBKTSIZ THEN 
TALLYCRANGE +1) CURRENT_TALLY; 


CURRENT_DEPTH DEPTHCRANGE); 
CURRENT_TALLY CURRENT _WEIGHT; 


END 
ELSE 
BEGIN 


{ + 
Suchet sizes from 33 to 63 aren't added in. 


RANGE; 
PROLOGUE3_DEPTH; 
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Now let's calculate what the colors are for this row. 
Right part Ist... 


FOR RANGE := MAX_RANGE TO BKTSC_MAXBKTSIZ DO 
BEGIN 
TEMP_DIST := RANGE = MAX_RANGE; 
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ore? If RANGE < 33 THEN ' 
Boge CURRENT_TALLY == CURRENT_TALLY * CURRENT_WEIGHT; j 
$3, = } 
14 94 IF IDATACEDFSK_BUCKET_WEIGHT) = EDFSK_SMALLER_BUFFERS THEN | 
er CURRENT _WEIGHT := CURRENT_WEIGHT + BUCKET_LEFT_WEIGHT; | 
080 END; { FOR } 1 
0804 1 
0805 MAX _TALLY := 0; 1 
0806 MAX _RANGE := 0; 1 
0807 MIN_BKS := 1; 1 
0808 1 
0809 { + 1 
Bars Minimum bucket size may be greater than one. Determine it here. , 
Baig FOR RANGE := 1 TO BKTSC_MAXBKTSIZ DO | 
0814 IF DEPTHCRANGE] < 1 THEN | 1 
0816 MIN_BKS := RANGE + 1; 1 
0817 END; 1 
0818 1 
0819 { + 1 
oase Now find the left end of the most common range (that's not 0). ! 
Bas FOR RANGE := BKTSC_MAXBKTSIZ DOWNTO MIN_BKS DO , 
0824 IF TALLYCRANGE) > MAX_TALLY THEN | 
0826 BEGIN 1 
0827 1 
0828 MAX_TALLY := TALLYCRANGE); | 1 
a8 9 MAX_RANGE := RANGE; : 
| 

et} END; | } 
$838 { + 1 
st34 Sometimes there aren't any values at all on a row... . 
st IF MAX_RANGE < 1 THEN : 
0838 MAX_RANGE := 1; 1 
{+ 1 

1 

1 

1 

1 

1 

1 

1 

1 
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IF TEMP_DIST < 9 THEN 
BEGIN 
COLOR_ROWCRANGE=1] := EDFSC_LIGHT_GREEN; 
END 


ELSE IF ( 
(TEMP_DIST > 8) 
AN 


(TEMP_DIST < 21) 
) THER 


BEGIN 

COLOR_ROWCRANGE=1) EDFSC_MEDIUM_YELLOW; 
END 
ELSE 
BEGIN 
COLOR_ROWCRANGE-1) := EDFSC_DARK_RED; | 


END; 


{ + 
_— sure the green region includes only one depth. 


IF ¢ 
joer RL RANOED <> DEPTHCMAX_RANGE]) 
so L OR ROWCRANGE-1) = EDFSC_LIGHT_GREEN) 


COLOR_ROWLRANGE-1] := EDFSC_MEDIUM_YELLOW; 
{ + 


If there's a point where we can get even a flatter file, 
note that. 


IF 
(DEPTHERANGE < DEPTHCMAX_RANGE]) 
hee RIGHT = 0) 


BREAKPOINT_RIGHT = MAX_FACTOR (1DATACEDE SK CLUSTER_SIZEJ, | 
RANGE .BKTSCMAXBRISI2)5 | 


END; { FOR } 


ee eS SS —_ l 


{ + 
Noy do to the left of natural. 


#. 
vies fit Source Listing i eae 94:40:38 DLSKSVMSMASTER CEDF -SRCIEDFDESIGN.PAS=T (8) 
0907 IF MAX_RANGE = 1 THEN 
BEGIN 
COLOR_ROW(O) := EDFS 
= DEPT 


33 


— 


LIGHT_GREEN; 


8 
at 

1 LEFT_ADJ_RANGE := DEPTHTMAX RANGE); | 
0918 ~MOs. - | 
0914 END 
$318 ELSE | 
0917 
O918 BEGIN | 
09 9 LEFT_ADJ_RANGE := DEPTHCMAX_RANGE-1); | 
0928 FOR RANGE := (MAX_RANGE-1) DOWNTO 1 DO | 
09 4 BEGIN | 
09 g IF DEPTHCRANGE) = LEFT_ADJ_RANGE THEN 
0998 COLOR_ROWLRANGE-1) := EDFSC_MEDIUM_YELLOW 
0980 ELSE | 
093¢ COLOR_ROWLRANGE-1) := EDFSC_DARK_RED; 
093 

END; 
END; { IF FALSE MAX_RANGE = 1 } 


hoy blank out any illegal spots. 
FOR RANGE := 1 TO BKTSC_MAXBKTSIZ DO 

IF DEPTHCRANGE) < 1 THEN | 
yp, (OLOR-ROWLRANGE=1] := EDFSC_BACKGROUND COLOR; | 


{ + 
Now fill in the breakpoint variables. 
~~ is easy. 
BREAKPOINT_MID := MAX_FACTOR (IDATACEDFSK CLUSTER_SIZE], 
MAX_RANGE ,BKTS$C_MARBKTS1Z); 
If BREAKPOINT_RIGHT = 0 THEN 


BEGIN 


{ + 

Breakpoint_right. 

RANGE := MAX_RANGE; 
WHILE ( 


PPITERTIRSEAISIFIITIIISIA AS 
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(RANGE < BKTSC_MAXBKTS1Z) 
(COLOR. ROWCRANGE=1) = EDFSC_LIGHT_GREEN) 


3332 


{ 
\ 
4 
| 
| 
‘ 
8 1 
0369 RANGE := RANGE + 1; } 
or) IF COLOR_ROWCRANGE-1] <> EDFSC_BACKGROUND_COLOR THEN 
oor8 BREAKPOINT_RIGHT := MAX_FACTOR (IDATACEDFSK CLUSTER. SIZE), } 
ore RANGE ,BKTSC_MAXBKTSIZ 
0376 ELSE IF RANGE <> MAX_RANGE THEN | 
0978 BREAKPOINT_RIGHT = MAX_FACTOR (IDATACEDFSK_CLUS TER SIZE], 1 
0979 (RANGE=1) ,BKTSC_MARBKTSI 1 
0980 | | 
998) ELSE 
b988 BREAKPOINT_RIGHT = MAX_FACTOR (IDATACEDF$K_CLU sree ;SIzE]. | 1 
oe: MAX_RANGE ,BKTSC  MARBET | } 
0986 END; { IF BREAKPOINT_RIGHT = 0 } | { 
0987 | 
0988 { + { 
0989 Breakpoint_left. { 
0990 ad | 
0991 RANGE := MAX_RANGE - 1; ' 
0992 | 1 
099 IF RANGE > 0 THEN 
0995 WHILE (RANGE > 1) AND (DEPTHCRANGE) = LEFT_ADJ_RANGE) DO 
0997 RANGE := RANGE = 1; { 
0998 { 
tee fat | 
ac } 
1001 5 was | 
100¢ RANGE := RANGE + 1; 1 
1006 IF RANGE >= MAX_RANGE THEN 
1006 BREAKPOINT_LEFT := MAX_FACTOR (IDATACEDFSK CLUSTER_SIZEJ, 1 
1007 MAX_RANGE ,BKTSC_MA ARSE TS12)~ ! 
1008 { 
1903 ELSE 
1011 BREAKPOINT_LEFT := MAX_FACTOR CIDATACEOF Sk CLUSTER_SIZEJ, 
ils RANGE ,BKTSC_MAXBKTSIZ); ! 
101 ! 
1014 { + / 
Hh af Now stuff the depthpoint variables. 
1019 DEPTHPOINT LEFT := DEPTH[BREAKPOINT_LEFT); 
1018 DEPTHPOINT_MID := DEPTH[BREAKPOINT MID); 
44 DEPTHPOINT_RIGHT := DEPTHCBREAKPOINT-RIGHT); 
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{ + 

Calculate and save more index information. Left side display. 

EXTEND_INDEX_INFO ( EXAMPOINT_LEFT, NUMPOINT LEFT 
PAGEPOINT-LEFT, BREAKPOIRT_LEFT); 

{ + 

Calculate and save more index information. Mid of display. 

EXTEND_INDEX_INFO ( EXAMPOINT_MID, NUMPOINT MID 
PAGEPOINT-MID, BREAKPOINT _MiD); 

{ + 

Calculate and save more index information. Right side display. 


EXTEND_INDEX_INFO ( EXAMPOINT_RIGHT, NUMPOINT RIGHT, 
PAGEPOINT_RIGHT, BREAKPOINT_RIGHT); 


Ww 
~ 
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39 { + 
8 Now stuff the function value and leave. | 
Og NATURAL _DEPTH := BREAKPOINT_MID; 
044 END; { NATURAL_DEPTH } 
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1 

1948 PLOT_GRAPH == Calculate index depths and plot them. 

1050 This routine figures out what the index depths will be for all bucketsizes 

ies and plots them on the screen. 

1988 CALLING SEQUENCE: 

1054 

1055 PLOT_GRAPH; 

1056 

1057 INPUT PARAMETERS: | 
1058 
1059 none 
1060 

1061 IMPLICIT INPUTS: 

1066 

106 FIRST_PLOT 

1064 

1065 OUTPUT PARAMETERS: | 
1066 

1067 none 

1068 

1069 IMPLICIT OUTPUTS: 

1070 

1071 Aber tte 2h 

107¢ IDATACEDF $K_BLOCKS_IN_BUCKET) 

107 XY_ARRAY 
1074 
190? ROUTINES CALLED: 

1077 PROLOGUE 3_DEPTH 

1078 EDF SGRAPH 

1079 

1080 ROUTINE VALUE: 

1081 

10g none 

108 

1084 SIGNALS: | 
1085 | 
1086 none 

1087 

1088 SIDE EFFECTS: 
1089 
1a) none 

1 


$3 


e- } 
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09% PROCEDURE PLOT_GRAPH; 
095 
ge =. 
34 ANGE : INTEGER; 
Soe CRABH SWITCH : INTEGER; 

i INTEGER : INTEGER; 

TEMP_INT INTEGER; 

BEGIN 
IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_LINE_SURFACE THEN 
BEGIN 


{ + 
Do the simple graph. 


GRAPH_TYPE = EDFSC_LINE; 
Y_LABEL := "Index Depth _ 


{ + 
sg the graph_index (for double buffering) 


TEMP_INTEGER := CURRENT _GRAPH_INDEX; 
CURRENT_GRAPH_ INDEX := LAST_GRAPH_ INDEX; 
LAST_GRAPH_INDBEX := TEMP ~FNTEGERS 

END; 

IF FIRST_PLOT THEN 

BEGIN 


{ + 

Hard set the graph index if this is the 1st time through. 

Plus set the graph switch to non-move-mode to plot the entire 
onze as well as the points. 


SSBOVEARUN LS SHS ARAN =SSRLERR AWS 


a ee ee ek ea a ee ed a ed ed wd ed ed od dd = od = = 
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3 GRAPH_SWITCH = <1; 
CURRERT_GRAPH_ INDEX := 0; 

: LAST_GRAPH_INDEX s2 1; 

END { IF TRUE FIRST_PLOT } 

ELSE 
9 
40 { + 
41 Not the Ist time through, just ‘move’ the points from their 
¢g last position. 
re) IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_LINE_SURFACE THEN 
ry GRAPH_SWITCH := LAST_GRAPH_INDEX 
“8 ELSE 
50 GRAPH_SWITCH 73 1; 


vives » Source Listing i “520-198 93 42: 33 DL EKSUMSAAS 


IF IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 
4 BEGIN 
CURRENT_GRAPH_INDEX := 0; 
END 
ELSE 
BEGIN 


{ + 

Fill the row in the xy_plot with the depths at each bucketsize. 
FOR RANGE := 0 TO 31 DO 

BEGIN 


IDATACEDF SK _BLOCKS_IN_BUCKET) := RANGE + 1; 
XY_PLOTCCURRENT_GRAPH_INDEX,RANGE] := PROLOGUE3_DEPTH; 


END; { FOR } 


ete the color_row, and copy that into the array. 
TEMP_INTEGER  := NATURAL_DEPTH; 
FOR TEMP_INT2 := 0 TO 31 DO 
COLOR_PLOTCCURRENT_GRAPH_INDEX,TEMP_INT2] := COLOR_ROWLTEMP_INT2); 


END; { IF FALSE IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE } 
IF NOT AUTO_TUNE THEN 
BEGIN 


{ + 

Since edfgrf doesn't for vT125s... 
IF REGIS THEN 

BEGIN 


ee ka ek a ke at a ak at a td = = “2 ot ot 2 2 a 8 2 2 2 2 2 2 a 2 
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{ + 
Force the screen out of reverse video to let all the 
characters be visible (vT125 HACK! $99 


URITELN (*"(27)°C25L"); 


{ + 
Can*t use CLEAR (SCREEN) because that also does a graphics clear. 
LIBSERASE_PAGE (LINE_ONE,COL_ONE); 
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{ + 
Plot that graph, tote that barge, Lift that bale... 


EDFSGRAPH ( 


GRAPH_TYPE, 


XY PLOT, 
CURRENT GRAPH_INDEX, 
GRAPH _SQITCH, 
IDATATEDF$K_Y_HIGH), 
IDATALEDFSK~Y-LOWJ 
IDATACEDFS$K-~Y—INCRS, 


Y LABEL, 
COLOR_PLOT 


{ IF NOT AUTO_TUNE } 


{ + 
Only DEC CRTs can scroll only at the bottom, so if we don't have one of 
those, always do a complete screen rewrite (in case of full screen scroll). 


IF DEC_CRT THEN 
FIRST_PLOT 


:= FALSE; 


{ PLOT_GRAPH } 


Vv 
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, 3 { ++ | 
! re WARN_OF ERASE == Tell user we're about to clobber his definition. | 
124 This routine warns the user that we're about to erase the definition and 
; rb asks for confirmation. | 
; re CALLING SEQUENCE: 

; ¢f WARN_OF ERASE; 

’ rt INPUT PARAMETERS: 

1251 none 

1 2g 

: 27 IMPLICIT INPUTS: 

: 2? SYSSINPUT: 

: 3 OUTPUT PARAMETERS: 

1358 none 

1261 IMPLICIT OUTPUTS: 

1506 

1364 none 

sso? ROUTINES CALLED: 

184 oe 

1368 ROUTINE VALUE: 

1594 none 

1398 

127 SIGNALS: 

iste 

1275 none 

1376 

1277 SIDE EFFECTS: 

1s?8 
1279 none 
1280 
1281 -- } 


Source Listing 
PROCEDURE WARN_OF_ERASE; 

5 BEGIN 

If NOT AUTO_TUNE THEN 
BEGIN 


— 
Ww 


{ + 
If the List has more than the IDENT in it, 
query the user about replacing it. 


IF ¢ 

(DEF HEAD <> DEF_TAIL) 

(DEF _HEAD*.PRIMARY <> IDENT) 
) THEN 


SSSSSBIIIBSIIBS 


BEGIN 
( 
302 ((IDATACEDFSK_SCRIPT_OPTION] = EDFS$K_REDESIGN_FDL) 
306 CIDATACEDFSK_SCRIPT_OPTION] = EDFSK_OPTIMIZE_FDL)) 
0 (1SAM_ORG) 
0 ) THER 


WRITE (SHIFT,ANSI_ REVERSE, 
"The Definition of Key”  IDATALEDF $k ACTIVE _KEY]:3, 
* will be replaced.',CRLF) 

ELSE 
WRITELN (SHIFT,ANSI_REVERSE 
* The Current Definition will be replaced. ', 
ANSI_RESET, CRLF); 

QUERY (EDFSK_RETURN); 
{ IF TRUE DEF_HEAD <> DEF_TAIL } 
{ IF NOT AUTO_TUNE } 


{ WARN_OF _ERASE } 


END; 
END; 


a eee ee ee ee ee a ed ed ed ed 
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F™D; 
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{ +4 

NON_KEY_DEF == Put into the definition the File, Record, etc stuff. 

This routine handles the initial addition of the non-repeating attributes. 
CALLING SEQUENCE: 


WAIN 
BSOIFALAGASS 


1 

1 

1 

1 

1 

1 

i 

3 NON_KEY_DEF; 

1 INPUT PARAMETERS: 
He none 

1 g IMPLICIT INPUTS: 
1344 

1345 none 

1346 

1347 OUTPUT PARAMETERS: 
1348 

1349 none 

1350 

1351 IMPLICIT OUTPUTS: 
1328 

135 DEF _CURRENT 

1354 DEF _HEAD 

1355 

1356 ROUTINES CALLED: 
1357 

1358 none 

1359 

1360 ROUTINE VALUE: 
1361 

1306 none 

136 

1364 SIGNALS: 

1365 

1366 none 

1367 

1368 SIDE EFFECTS: 
1369 

1370 none 

1371 

1372 -- } 


ee 
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i PROCEDURE NON_KEY_DEF; | 

BEGIN | 

1 { + | 

, ~~ the rest of the non-key data. ; 
1 QUERY (EDFSK_FDL_TITLE); 

1 QUERY (EDFSK-DATA_FILE_NAME); é 
QUERY (EDFSKTCARRCTRLJ; 

1 { + 

: Now make up the rest of the definition. | 
IF BDATACEDFSK_FDL_TITLE] THEN | : 
1390 BEGIN | 2 
139 MAKE_SCRATCH; | 3 
139% WITH DEF_SCRATCH* DO | 2 
1396 BEGIN 2 
133 ‘ ee 
1398 TITLE primary. | $ 
1401 LIBSSCOPY_DXDX (SDATACEDFSK_FDL_TITLEJ,STRING); | e! 
1408 STRSFREE1_DX (SDATACEDFS$K_FOL_TITLE); | $ 
1404 PRIMARY := TITLE; 
1405 OBJECT_TYPE := PRI; 
1407 INSERT_IN_ORDER (REPLACE _OBJ); | 

1409 END;  { WITH DEF_SCRATCH* DO } | 

1411 END { IF TRUE BDATACEDFSK_FDL_TITLEJ } | 

i - 

1415 BEGIN | 

1417 IF FIND OBJECT (PRI,TITLE,0,DUMMY_SECONDARYS,0) THEN | 

1419 DELETE_CURRENT; | 

1421 END; { IF FALSE BDATACEDFSK_FDL_TITLE) } | 

is MAKE_SCRATCH; 

14 5 WITH DEF_SCRATCH* DO 

1259 BEGIN 

1498 { + 

14 SYSTEM primary. 
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-} 
14 OBJECT TYPE := PRI; ) ; 
14 PRIMARY := SYSTEM; | 
14 INSERT_IN_ORDER (REPLACE_OBJ); : 
1437 END; { WITH DEF_SCRATCH* DO } | 
1439 MAKE_SCRATCH; : 
1440 2 
1441 WITH DEF_SCRATCH* DO ¢ 
144g ; 
144 BEGIN 
1444 é 
1445 { + | 2 
1oe8 SOURCE Secondary. | § 
1448 PRIMARY := SYSTEM; | 2 
1449 SECONDARY := SOURCE; é 
1450 QUALIFIER := FDLSC_VMS; | ‘ 
1438 INSERT_IN_ORDER (REPLACE_OBJ); | § 
1456 END; { WITH DEF_SCRATCH* DO } | 4 
1456 MAKE_SCRATCH; é 
1458 WITH DEF _SCRATCH* DO | 2 
1459 | é 
1460 BEGIN 2 
1461 | 2 
1468 { + 2 
146 FILE primary. 2 
1464 - | 2 
1465 OBJECT _TYPE := PRI; 2 
1466 PRIMARY := FILES; 2 
1468 INSERT_IN_ORDER (REPLACE_OBJ); : 
1470 END; { WITH DEF_SCRATCH* DO } : 
147 { + 
ser? NAME secondary. 
1475 IF BDATACEDFSK_DATA_FILE_NAME) THEN ‘ 
1499 BEGIN 
1478 
1479 MAKE_SCRATCH; 
1480 
14 1 WITH DEF_SCRATCH* DO 
i BEGIN 
1485 LIBSSCOPY_DXDX (SDATACEDFSK_DATA_FILE_NAMEJ,STRING); 
1486 STRSFREE1-DX (SDATACEDF$K_DATA_FILE_NAME)); 
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PRIMARY := FIL | 
SECONDARY := NAM 
INSERT_IN_ORDER (REPLACE_0BJ); 
END;  { WITH DEF_SCRATCH* > 
END { IF TRUE BDATACEDFSK_DATA_FILE_NAME) } 
ELSE 
BEGIN | 
IF FINDOBJECT (SEC.FILES,0,NAME,O) THEN 
DELETE_CURRENT; 
END; { IF FALSE BDATACEDFSK_DATA_FILE_NAME) } 
MAKE _SCRATCH; 
WITH DEF_SCRATCH* DO 
BEGIN 


| 
| 
| 
| 
{+ | 
ORGANIZATION secondary. 
| 
| 


PRIMARY := FILES; 
SECONDARY := ORGANIZATION; 
CASE IDATACEDF$K_SCRIPT_OPTION) OF 
EDFSK_OPTIMIZE_FDL, 
EDF $K~REDESIGN-FDL 
EDFSK-IDX_DESIGN_FOL : QUALIFIER := FDLSC_IDX; 
EDFSK-SEQ-DESIGN-FDL : QUALIFIER := FDLS$C~SEQ: 
EDFSKIREL-DESIGN-FDL : QUALIFIER := FDLSC7REL: 
OTHERWISE 


= 
SSBVRARUNLSDBVSARAVASSRIS ARAN ODOR NEAR OOD ee 


{ NULL-STATEMENT } ; 
END; { CASE } | 
INSERT_IN_ORDER (REPLACE_0BJ); 
END; { WITH DEF_SCRATCH* DO > | 
MAKE_SCRATCH; | 
WITH DEF_SCRATCH* DO 
BEGIN 
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{ + 
RECORD primary. 
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| 
45 - > | 
4g OBJECT TYPE := PRI; | 
4 PRIMARY := RECORDS; | 
49 INSERT_IN_ORDER (REPLACE_0BJ); | 
5 END; { WITH DEF_SCRATCH* DO >} | 
38 IF IDATACEDFSK_SCRIPT_OPTION] = EDFSK_SEQ_DESIGN_FDL THEN 
55 BEGIN | 
35 
5 { + 
38 BLOCK_SPAN secondary. 
60 MAKE_SCRATCH; 
6¢ WITH DEF_SCRATCH* DO 
64 BEGIN 
PRIMARY := RECORDS; 
SECONDARY := BLOCK SPAN; 
SWITCH := BDATACEDFS$K_BLOCK_SPANJ; | 


INSERT_IN_ORDER (REPLACE_OBJ); 
END; { WITH DEF _SCRATCH* DO } 
END; { IF TRUE DESIGN_ORG = SEQUENTIAL } 


{ + 
CARRIAGE_CONTROL secondary. 
MAKE_SCRATCH; | 


SANS SSS 


80 

81 WITH DEF_SCRATCH* DO | 
88 BEGIN | 
85 PRIMARY := RECORDS; | 
86 SECONDARY := CARRIAGE CONTROL; 

87 QUALIFIER := IDATACEDFSK_CARR_CTRLI; 


S& 


INSERT_IN_ORDER (REPLACE_OBJ); 
END; 


8 


ooo 
wr 


IF ( 
(CIDATALEDFSK_SCRIPT_OPTION] = EDFSK_SEQ_DESIGN_FOL) 
(IDATACEDFS$K_SCRIPT_OPTION] = EDFSK_REL_DESIGN_FOL)) 
(IDATACEDFSK_RECORD_FORMAT] = FDLSC_VFC) 

) THEN 
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{ + 
CONTROL _FIELD_SIZE secondary. 


SeSSEE8 


MAKE_SCRATCH; 
WITH DEF _SCRATCH* DO 
BEGIN 
PRIMARY = RECO 
NUNBER = [DATALEDFSK-CONTROL_S1ZEJ; 
INSERT_IN_ORDER (REPLACE_OBJ); 
END; 
END; { IF DESIGN_ORG = SEQ OR REL AND RECORD_FORMAT = VFC } 


MAKE_SCRATCH; 
WITH DEF_SCRATCH* DO 
BEGIN 


{ + 
FORMAT secondary. 


MEUM “OO OONAOUSWUN -OOONOUSWN—O 


PRIMARY := RECORDS; 

SECONDARY := FORMAT; 

QUALIFIER := IDATACEDFSK_RECORD_FORMAT); 
35 INSERT_IN_ORDER (REPLACE_OBJ); 
37 END; { WITH DEF_SCRATCH* DO } 
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39 { + 
of SIZE secondary. 
642 MAKE_SCRATCH; 
644 WITH DEF_SCRATCH* DO 
646 BEGIN 
64 
648 PRIMARY = RECORDS; 
649 SECONDARY = SIZE; 
650 NUMBER = IDATACEDFSK_MAX_RECORD_SIZE); 
63¢ INSERT_IN_ORDER (REPLACE_0BJ); 
654 END; 
655 
656 END; { NON_KEY_DEF } 
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1685 sii 

Hes CALC_ALLOC == Calculate the allocation for seq and rel files. 
Hy 9 This routine handles the calculations for allocation for seq and rel files. 
Hee: CALLING SEQUENCE: 
1698 ALLOC := CALC_ALLOC (RECORD_TOT); 
1668 INPUT PARAMETERS: 
1962 

1670 RECORD_TOT 

1671 

1o76 IMPLICIT INPUTS: 

167 

1674 none 

1675 

1676 OUTPUT PARAMETERS: 
1677 

1678 none 

1679 

1680 IMPLICIT OUTPUTS: 
1681 

1on 

168 ROUTINES CALLED: 

1684 

1685 none 

1686 

Hb 14 ROUTINE VALUE: 

1699 ALLOCATION CALCULATED 
1691 SIGNALS: 

1on6 

169 none 

1694 

1695 SIDE EFFECTS: 

1696 

1697 none 

1698 

1699 -- } 
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179) FUNCTION CALC_ALLOC (RECORD_TOT : INTEGER) : INTEGER; | 


17 

1708 VAR 

1704 AI.LOC : INTEGER; 

1705 RATIO r REAL; 

1706 BYTES_REAL REAL: 

1707 NUMRECS_REAL : REAL; 

1708 

1709 BEGIN 

1710 

1711 { + 

ar Now let's figure out the allocation needed. 

1714 BYTES REAL = RECOR 

Hag NUMRECTS_REAL i= IDATACEDE Sk. INITIAL_COUNT); 

a IF NUMRECS_REAL < 1.0 THEN | 

1719 NUMRECS_REAL := 1.0; | 

1721 RATIO := BYTES_REAL / 512.0; | 

1738 IF (RATIO > (EDFSC_1GIGA / NUMRECS_REAL)) THEN 
| 

173 CALC_ALLOC := EDFSC_1GIGA 

1726 | 

er ELSE | 

We CALC_ALLOC := ROUND (RATIO * NUMRECS_REAL); 

1731 END;  { CALC_ALLOC } | 
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iz 3 { +4 

\f 5 SEQ_DEF == Handle seq fiie stuff. 

4 ‘ This routine handles the addition of the sequential file attributes. 

1739 CALLING SEQUENCE: 

1740 

1741 SEQ_DEF; | 

16 

174 INPUT PARAMETERS: 

1744 

1745 none 

1746 | 

1747 IMPLICIT INPUTS: | 

1748 

1749 none 

1750 

1751 OUTPUT PARAMETERS: 

1736 

175 none 

1754 

1755 IMPLICIT OUTPUTS: 

1756 

1757 DEF _CURRENT 

1758 DEF __HEAD 

1759 

1760 ROUTINES CALLED: 

1762 | 
none 

1788 

1764 ROUTINE VALUE: 

1765 

1766 none | 

1767 

1768 SIGNALS: | 

1769 

1770 none 

1771 

HAL SIDE EFFECTS: 

177 

1774 none 

1775 | 

1776 ee } 


K 6 

EDF DESIGN 16-Sep-1984 01:10:30 VAX=11 Pascal V2.4-277 Page 37 

voe> Source Listing ety 95:48:82 DLSKSUMSMASTER CEDF -SRCJEDFDESIGN.PASTY 1a) 
i 

iT PROCEDURE SEQ_DEF; | 

7 VAR 

78) ALLOC : INTEGER; 

7 ; RECORD_TOT : INTEGER; 

7 RECORD_INT : INTEGER; 

g 4 RECORD-REAL : REAL; 

BEGIN | 

788 { + | 

i Figure out how big each record is. 

jad RECORD_TOT := IDATACEDFSK_MEAN_RECORD_SIZE); 

738 IF VARIABLE_RECORDS THEN 

795 RECORD_TOT := RECORD_TOT + 2; 

199 c+ 

a Assumes record size is less than 512 if BDATACEDFSK_BLOCK_SPAN] is false. 

800 IF NOT BDATACEDFS$K_BLOCK_SPAN] THEN 

aoe BEGIN 

80 

804 { + 


S 


| 
| 
| 
Increase the virtual size of each record so that it looks like 
an_integer number of them fit in a block. 
| 
| 
| 


RECORD_REAL 512.0 / RECORD_TOT; 


Ssecs 


INSERT_IN_ORDER (REPLACE_OBJ); | 
END; { WITH DEF_SCRATCH* DO } | 


em ee ee ee ld dk wd wd 2 = od 


:=s 
RECORD_INT := TRUNC (RECORD REALS; 
ait RECORD_TOT := 512 DIV RECORB_INT; 
aig END; 
814 ALLOC := CALC_ALLOC (RECORD_TOT); 
HE rz 
Bi Now actually stuff the secondary from the above calculations. 
oh MAKE _SCRATCH; 
; WITH DEF _SCRATCH* DO 
§ BEGIN 
24 
5 { + 
. $ ALLOCATION secondary. 
; 8 PRIMARY := FILES; | 
9 SECONDARY := ALLOCATION; | 
; : NUMBER := ALLOC; 
i § 
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| 
1835 
MAKE_SCRATCH; | 
WITH DEF_SCRATCH* DO 

| 
1840 BEGIN | 
1841 | 
1 é { + | 
Hoh SEE awl aT SONS secondary. 
1845 PRIMARY := FILES; | 
1846 SECONDARY := BEST_TRY_CONTIGUOUS; | 
1848 INSERT_IN_ORDER (REPLACE _0BU); | 
1850 END; { WITH DEF_SCRATCH* DO > | 
1858 MAKE_SCRATCH; 
1854 WITH DEF_SCRATCH* DO | 
1855 | 
1856 BEGIN 
1857 
1858 { + 
1859 EXTENSION secondary. | 
1860 - } 
1861 PRIMARY := FILES; | 
1862 SECONDARY := EXTENSION; | 
1865 NUMBER := ALLOC DIV’ 10; | 
1865 INSERT_IN_ORDER (REPLACE_0BJ); | 
1867 END; { WITH DEF_SCRATCH* DO } | 
1869 END;  { SEQ_DEF } | 

| 

| 


Ht amy 

; a REL_DEF == Handle relative file stuff. 
; o This routine handles the addition of the relative file attributes. 
1877 CALLING SEQUENCE: 
; 3 REL_DEF; 

rt INPUT PARAMETERS: 
eo 

1 IMPLICIT INPUTS: 
2 

+34 OUTPUT PARAMETERS: 
199) none 

1898 IMPLICIT OUTPUTS: 
1895 DEF __CURRENT 

1998 DEF _HEAD 

198 ROUTINES CALLED: 
P's none 

1308 ROUTINE VALUE: 
1388 a 

1308 SIGNALS: 

1388 was 

129 SIDE EFFECTS: 

Hb a none 

191 

1914 -- } 
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N 6 

EDFDESIGN 16-Sep-1984 01:10:30 VAX-11 Pascal V2.4-277 Page 40) 

ithe Source Listing ee 94:40:38 DISKSVMSMASTER: EDF. SRCJEDFDESIGN.PAS:% (20) | 
| 

1918 PROCEDURE REL_DEF; | 

191 

1918 VAR 

191 ALLOC : INTEGER; 

1920 RECORD_TOT : INTEGER: 

1921 BUCKET-TOT : INTEGER; 

19 g BUCKET : INTEGER; 

19 RECS PER_BUCKET INTEGER: 

19 4 NUM_BUCKETS INTEGER: | 
| 

19 $ BEGIN 

19 

1928 { + | 

4 9 See what the disk clustersize is. | 

1931 QUERY (EDFSK_CLUSTER_SIZE); 

Hi | 

193 { + 

1934 Calculate how large the bucketsize should be. 

13e2 Make them big enough for 16 records. 

1937 RECORD_TOT := IDATACEDFSK_MAX_RECORD_SIZE] + 1; 

1932 IF VARIABLE_RECORDS THEN | 

1941 RECORD_TOT := RECORD_TOT + 2; 
| 

1348 BUCKET_TOT := 16 * RECORD_TOT; 

1969 BUCKET := BUCKET_TOT DIV 512; 

1947 IF BUCKET < 1 THEN 

1948 

4 BUCKET 22 1; | 

1951 IF (BUCKET_TOT MOD 512) <> 0 THEN | 

1985 BUCKET := BUCKET + 1; | 

1955 BUCKET := MAX_FACTOR (IDATACEDFSK_CLUSTER_SIZEJ, 

1996 BUCKET ,BKTSC_MAXBKTSIZ); 

1958 RECS_PER_BUCKET := (BUCKET * 512) DIV RECORD_TOT; | 

1960 IF RECS_PER_BUCKET < 1 THEN 

1968 RECS_PER_BUCKET := 1; | 

1906 NUM_BUCKETS := IDATACEDFSK_INITIAL_COUNT] DIV RECS_PER_BUCKET; 

1966 IF NUM_BUCKETS < 1 THEN 

1968 NUM_BUCKETS := 1; 

1970 IF CIDATACEDFSK_INITIAL_COUNT) MOD RECS_PER_BUCKET) <> 0 THEN 

1972 NUM_BUCKETS := NUM_BUCKETS ¢ 1; 
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1973 | 
1974 { + 
130) Add one more disk cluster into the allocation for the prolog. 

ib 14 ALLOC := (BUCKET * NUM_BUCKETS) + IDATACEDFSK_CLUSTER_SIZEJ; | 
1979 { + 

1389 Now actually stuff the secondary from the above calculations. | 
198¢ MAKE_SCRATCH; 
198 

1984 WITH DEF_SCRATCH* DO 

1386 BEGIN 

1989 

1988 { + 

34 ALLOCATION secondary. 

1991 PRIMARY := FILES; 

ib a4 SECONDARY := ALLOCATION; 

ib ad NUMBER := ALLOC; 

1999 INSERT_IN_ORDER (REPLACE_OBJ); 

i} 424 END; { WITH DEF_SCRATCH* DO } | 
1999 MAKE_SCRATCH; | 
2000 
2001 WITH DEF_SCRATCH* DO 
2002 
2003 BEGIN 
2004 
2005 { + | 
2006 SE et Ia pn ee secondary. 


INSERT_IN_ORDER (REPLACE_0BJ); 
END; { WITH DEF_SCRATCH* DO } 
MAKE _SCRATCH; 

WITH DEF_SCRATCH* DO 


PRIMARY FILES; | 

2009 SECONDARY BEST_TRY_CONTIGUOUS; 
| 

| 

| 

| 


OWOONOUS WN 


POPOPONONY 


INSERT_IN_ORDER (REPLACE_OBJ); 


RRININININININININININ NINN 
SOOOCoCooCoOoCoCoCoooeSeo 


ooooo 
Roreoronory 


BEGIN 
1 {+ 
$ SUEKET SIZE secondary. 
i PRIMARY := FILES; 
5 SECONDARY := BUCKET_SIZE; 
6 NUMBER := BUCKET; 
8 
9 
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END; { WITH DEF_SCRATCH* DO } 
MAKE_SCRATCH; 
WITH DEF_SCRATCH* DO 
BEGIN 


mMrrorororororr 
ooQoooc[e0ono 
Www 
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oO 


{ + 
sees secondary. 


5 
7 
8 
2039 

040 

041 PRIMARY = FILES: 

Que SECONDARY = EXTENSION; 

04 NUMBER = MAX FACTOR ( 

044 BUCKET, 

2045 (ALLOC DIV 4), 

066 EDFS$C_1GIGA); 
208 INSERT_IN_ORDER (REPLACE_OBJ); 

2050 END; { WITH DEF_SCRATCH* DO } 
$038 MAKE_SCRATCH; 

054 WITH DEF_SCRATCH* DO 
soca BEGIN 
2057 
2058 { + 
So28 RAR RECORD UNDER secondary. 

061 PRIMARY := FILES; 

062 SECONDARY := MAX RECORD NUMBER; 
063 NUMBER := IDATACEDF$R_INITIAL_COUNT); 
2065 INSERT_IN_ORDER (REPLACE_OBJ); 

2067 END; { WITH DEF_SCRATCH* DO } 
$068 END;  { REL_DEF } 
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: 
: 
; 
: 
; 
: 
; 
; 


if = 
af? APPEND _DEF <= Add a key/areas def segment onto the end of the definition. 
075 This routine puts all the attributes for a key and its areas onto the tail 
07 of the Linked list. . 
3a CALLING SEQUENCE: 
8 APPEND_DEF ; 
08 INPUT PARAMETERS: 
O88 
spas none 
085 
spat IMPLICIT INPUTS: 
087 
088 none 
089 
Boe OUTPUT PARAMETERS: 
34 none 
09 
te IMPLICIT OUTPUTS: 
2096 DEF _CURRENT 
2097 DEF “HEAD 
2098 
394 ROUTINES CALLED: 
210) none 
Ie 
10 ROUTINE VALUE: 
104 
105 none 
106 
107 SIGNALS: 
108 
109 none 
110 
111 SIDE EFFECTS: 
5118 
11 none 
giis 
115 -- } 
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| 

PROCEDURE APPEND_DEF; 


_— 


1 
1 
1 VAR 
DATA_AREA_NUMBER : INTEGER; 
INDEX _AREA_NUMBER : INTEGER; 
INIT_BATA_ALLOC : INTEGER; 
INIT INDER_ALLOC : INTEGER; 
ADDEB_DATA_ALLOC : INTEGER; 
ADDED- INDER_ALLOC : INTEGER; 
ATA_ALLOC : INTEGER; 
INDER_ALLOC : INTEGER; 
ATA_EXT : INTEGER; 
NDER_EXT : INTEGER; 
USED_BATA_BUCKETS : INTEGER; 
ED_DATA_BUCKETS : INTEGER; 
USED_IRNDEX_Buck : INTEGER; 
UNUSED_INDEX_BUCKETS : INTEGER; 
CHOSEN_DEPTH : INTEGER; 
CHOSEN DEPTH2 : INTEGER; 
TEMP_ACLOC : INTEGER; 
: INTEGER; 
BEGIN 
{ + 
Get the user's decision on the value of the plotted file parameter. 


IF IDATACEDF$K_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 
CASE IDATACEDFSK_SURFACE_OPTION] OF 


| 

| 

| 
EDFSK_FILL_SURFACE : QUERY (EDFSK_DESIRED_FILL); | 
EDFSK_INIT_SURFACE : QUERY (EDFSK_INITIAL_COUNT); | 
EDFSK_ADDED_SURFACE : QUERY (EDF$K_ADDED_COUNT); 
EDFSK_KEY_SURFACE : ASK_KEY_SIZE; 
EDFSK_SIZE_SURFACE : | 
BEGIN 


DWONAVEWN $9 OBNAUES WN OC ODNAUESWN (OO DONOUSWNO0O 


ASK_MEAN_RECORD_SIZE; | 


{ + 
Redo the SIZE secondary if this was a Record Size Surface. 
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MAKE_SCRATCH; 
WITH DEF_SCRATCH* DO 
BEGIN 
1 PRIMARY = RECORDS; 
é SECONDARY = SIZE; 
NUMBER = [DATACEDFSK_MAX_RECORD_SIZE); 


, + 
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{ NULL=STATEMENT } ; 
END; { CASE } 

{ + 
See what bucketsize the user chose and recalculate the depth 
based on that bucketsize alone. Find out the most reasonable 
bucketsize default by looking for the left end of the ‘natural depth’. 
The primary_buckets arrays are reset to zero now as well. 
BUCKET_DEFAULT := NATURAL_DEPTH; 
QUERY (CEDFSK_BLOCKS_IN_BUCKET); 
FOR I := 0 TO 31 DO 
BEGIN 


INIT_PRIMARY_BUCKETSCI 
ADDEB_PRIMARY_BUCKETSL 


END; 
CHOSEN_DEPTH := PROLOGUE3_DEPTH; 


175 INSERT_IN_ORDER (REPLACE _0BJ); | 
rf END;  { WITH DEF_SCRATCH* 0 ? 

i] END; { SIZE_SURFACE 

81 OTHERWISE 


Co 
uw 


POPIPOPOPIPOPININIPIPIPOPUNIPUNIPUNINPUNIPUPUNIPONOND 


PDEA kk kk dh ed etd od edd 


& 


J := 0; 
1) := 0; 


AEN LS SSLSSRALLS SELF 


3s 


{+ . 
| finish getting the info to flesh out the FDL definition. 


QUERY (EDFSK_KEY_CHANGES); 
QUERY (EDFSK7KEY~NAME); 


5 
: 
: 
: 


3 
3 
| 


Oo 
. 


{ + 
Figure the index allocation at the same time, though. 


INIT_DATA_ALLOC := INIT_NUMBER BUCKETS(OJ; 
ADDEB_DATA_ALLOC —:=_ADDED_NUMBER_BUCKETSLO); 


Sb td 4) be —) — 4 2 4 


OWONOVE WN "OOOO UEWN—O 


{ + 
Find total number of buckets in index. 


INIT INDEX ALLOC == 8: 
ADDEB_INDER_ALLOC = := 0; 


FOR J := 1 TO CHOSEN_DEPTH DO 
BEGIN 
INIT_INDEX_ALLOC := INIT LINDEX_ALLOC + INIT_NUMBER_BUCKETS(1); 
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1 ADDED_INDEX_ALLOC := ADDED_INDEX_ALLOC + ADDED_NUMBER_BUCKETS(I]; 
: END; 
5 { + 


Now merge any additional records into the existing ones. 


ADDED_DATA_ALLOC 0; 


IF ADDED_INDEX_ALLOC > UNUSED_INDEX_BUCKETS THEN 


8 IF IDATACEDFSK_ADDED_COUNT] <> 0 THEN 

40 BEGIN 

4¢ USED_DATA_BUCKETS 

4 UNC CRDATACEDF SK_ LOAD_FILL] * INIT_DATA_ALLOC) + 1; 

44 USED_INDEX BUCKETS 

45 TRONC (RDATACEDF SK -LOAD FILL * INIT_INDEX_ALLOC) + 

eu UNUSED DATA BUCKETS ="INITDATA_ALLOC ="USED BATA Suckers; 

47 UNUSED~ INDER_BUCKETS := INITZINDER_ALLOC = USED_INDEX_BUCKETS; 
i IF ADDED_DATA_ALLOC > UNUSED_DATA_BUCKETS THEN 

331 ADDED_DATA_ALLOC := ADDED_DATA_ALLOC = UNUSED_DATA_BUCKETS 
$52¢ ELSE 
2 54 

55 
: 56 
$528 
2 39 ADDED_INDEX_ALLOC := ADDED_INDEX_ALLOC - UNUSED_INDEX_BUCKETS 
61 ELSE 

es ADDED_INDEX_ALLOC := 0; 
3 63 IF ADDED_DATA_ALLOC > 0 THEN 
2 67 INIT_DATA_ALLOC := INIT_DATA_ALLOC + ADDED_DATA_ALLOC; 
3 69 IF ADDED_INDEX_ALLOC > 0 THEN 
2 INIT_INDEX_ALLOC := INIT INDEX_ALLOC + ADDED_INDEX_ALLOC; 

END; { IF TRUE IDATACEDF$K_ADDED_COUNT] <> 0 } 


{ + 

Calc to get total number of blocks for that many buckets. 

And also round the allocations aly, 4. tly’ u 

Double check boundaries to prevent nteger overflows. Enforce max of 1Giga. 

IF INIT _DATA_ALLOC > (EDFSC_IGIGA DIV IDATACEDFSK_BLOCKS_IN_BUCKET]) THEN 
DATA_ALLOC := EDFSC_1GIGA 

ELSE 


DATA_ALLOC := INIT_DATA_ALLOC * IDATACEDFSK_BLOCKS_IN_BUCKET); 


MIPIPIPOPOPIPIPIPO NI NININOPIN POPU Non fononononony 


FOREN ES toons 


; 
; 


@ 
~ 
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IF INIT_INDEX_ALLOC > 
(EDFSC_1GIGA DIV IDATACEDF$K_BLOCKS_IN_BUCKET]) THEN 


89 
90 
4 INDEX_ALLOC := EDFSC_1GIGA 
38 ELSE 
95 INDEX_ALLOC := INIT_INDEX_ALLOC * IDATACEDFSK_BLOCKS_IN_BUCKET); 
37 C+ 
98 Since we're just about to allocate the user's file based on multiple 
99 areas, get rid of any existing secondaries that would be confusing. 
4 POINT_AT_DEF INITION; 
5 IF FIND OBJECT (PRI,FILES,0,DUMMY_SECONDARYS$S,0) THEN 
05 BEGIN 
307 REPEAT 
308 
309 IF ¢ 
$3i9 ae one = FILES) | 
Sei§ (DEF _CURRENT*.SECONDARY IN C ALLOCATION, EXTENSION, 
31 BUCRET_SIZE, BEST_TRY_CONTIGUOUS, CLUSTER_SIZE )) 
sie ) THEN 
316 DELETE_CURRENT 
318 ELSE 
2319 
See INCR_CURRENT; 
$356 UNTIL (DEF_CURRENT = NIL) OR (DEF _CURRENT*.PRIMARY <> FILES); 
2334 END; { IF TRUE FIND_OBJECT (FILES) > | 
526 {+ | 
+4 Compute the correct area numbers. 
¢3 IF IDATACEDFSK_ACTIVE_KEY) < 127 THEN | 
HH DATA_AREA_NUMBER := (2*1DATACEDFSK_ACTIVE_KEY]) 
4 ELSE 
DATA_AREA_NUMBER := 254; 


INDEX_AREA_NUMBER DATA_AREA_NUMBER + 1; 


Bay 


{ + 
Make the area primary. 
MAKE_SCRATCH; 


PRIPIPOPOPOPINOPONPININININIPYININIPYNININY 
AAA. AANA 


FEFEE 
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WITH DEF_SCRATCH* DO 


? | 
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BEGIN 


{ + 
ss m primary (for data). 
OBJECT _TYPE := PRI; 
PRIMARY := AREA; 
NUM := DATA_AREA_NUMBER; 
INSERT_IN_ORDER (REPLACE_OBJ); 
END; { WITH DEF _SCRATCH* DO } 


{ + 
Now actually stuff the secondary from the above calculations. 
IF IDATACEDFSK_ACTIVE_KEY] < 127 THEN 


TEMP_ALLOC := 0 
ELSE IF FIND_OBJECT (SEC,AREA,254,ALLOCATIONS,O) THEN 
TEMP_ALLOC := DEF_CURRENT* NUMBER 

ELSE 

2 TEMP_ALLOC := 0; 
3 MAKE_SCRATCH; | 
76 WITH DEF_SCRATCH* DO | 
He er 


ALLOCATION secondary (for data area). 
PRIMARY = AREA; 
PRINUM := DATA_AREA_ NUMBER; 
SECONDARY := ALLOCATIONS; 
NUMBER := DATA_ALLUC + TEMP_ALLOC; 
INSERT_IN_ORDER (REPLACE_OBJ); 

END; { WITH DEF _SCRATCH* DO } 

MAKE _SCRATCH; 

WITH DEF _SCRATCH* DO 

BEGIN 


ae 
o 
—_ 


ROPOPOPOPIPOPOPIPIPOPIPOPNOPININAGPINONNY 
SSSSSSSSSSSSSESSESLAS 


{ + 
SE St Tat CONT IeUEUS secondary (for data area). 


ido seo-19Bs 01:19:99 


Source Listing 


40 PRIMARY := AREA; 

40 PRINUM := DATA_AREA_N 

40% SECONDARY := BEST-TR RY CONT 1 GUOUSS; 
406 INSERT_IN_ORDER (REPLACE_OBJ); 

40 


ret END; { WITH DEF_SCRATCH* DO > 


4 

419 MAKE_SCRATCH; 

tig WITH DEF _SCRATCH* 90 

414 BEGIN 

415 

218 { + 

ets et ae secondary (for data area). 

419 PRIMARY := AREA; 

“39 PRINUM := DATA_AREA_NUMBER; 
421 SECONDARY := BUCKET SIZES; 

¢ NUMBER := IDATACEDF$K_BLOCKS_IN_BUCKET); 
? : INSERT_IN_ORDER (REPLACE_OBJ); 

. $ END; { WITH DEF_SCRATCH* DO } 

036 MAKE_SCRATCH; 

80 

rt WITH DEF_SCRATCH* DO 

43 BEGIN 

43 

434 { + 

tH EXTENSION secondary (for data area). 

437 PRIMARY := AREA; 

438 PRINUM := DATA_AREA_NUMBER; 
stip SECONDARY := EXTERS10N $; 

440 NUMBER := ACTOR ( 

44) “IDXTALEDF 8x BLOCKS_IN_BUCKET]) 
44 ((DATA_AL Lots +TEMP_ALLOC) Div 4), 
443 EDFSC *TeiG 

vrs INSERT_IN_ORDER (REPLACE_OBJ); 

vet 4 END; { WITH DEF_SCRATCH* DO } 

449 MAKE_SCRATCH; 

tt WITH DEF_SCRATCH* DO 

45 BEGIN 

454 

455 { + 

$2 AREA mn primary (for index). 


OBJECT_TYPE 


= PRI; 


VAX-11 Pascal 
DISKSVMSMAS 
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459 PRIMARY := AREA; 

460 PRINUM := INDEX_AREA_NUMBER; 

46 INSERT_IN_ORDER (REPLACE_OBJ); | 

464 END; { WITH DEF_SCRATCH* DO } 

46 MAKE_SCRATCH; | 

468 IF IDATACEDFSK_ACTIVE_KEY] < 127 THEN | 

470 TEMP_ALLOC := 0 | 

7 ELSE IF FIND_OBJECT (SEC,AREA,255,ALLOCATIONS,0) THEN 

47h TEMP_ALLOC := DEF_CURRENT* NUMBER ; 
4? ELSE 3 
478 TEMP_ALLOC = 0; ; 
480 WITH DEF_SCRATCH* DO ; 
48 BEGIN ; 
48 

484 { + 3 
rt ¥4 ALLOCATION secondary (for index area). 3 
487 PRIMARY r= AREA; | ; 
4 PRINUM r= INDEX AREA NUMBER; 

489 SECONDARY := ALLOCAT 

re NUMBER := INDEX "ALLOC’ + TEMP_ALLOC; | 3 
49 INSERT_IN_ORDER (REPLACE_OBJ); 

49% END; { WITH DEF_SCRATCH* DO } 

496 MAKE_SCRATCH; 

498 WITH DEF_SCRATCH* DO 

499 

500 BEGIN | 

501 

50 { + | 

2p7 BEST _TRY CONTIGUOUS secondary (for index area). | 

505 PRIMARY := AREA; 

306 PRINUM r= INDEX AREA NUMBER; | 

307 SECONDARY := BEST_TRY_CONTIGUOUSS; | 

209 INSERT_IN_ORDER (REPLACE_0BJ); 

311 END; { WITH DEF_SCRATCH* DO } | 

318 MAKE_SCRATCH; 

515 WITH DEF_SCRATCH* DO 


7 
-Sep- 710: X-11 P .4°27 
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19 
1 BEGIN 

15 

1 { + 

, SUSKET SIZE secondary (for index area). 

2 ¢ PRIMARY := AREA; 

5 PRINUM := INDEX AREA NUMBER; 

2 4 SECONDARY := BUCKETS sizes 

5 NUMBER = IDATACEDFSE “BLOCKS_IN_BUCKET); | 
; ? INSERT_IN_ORDER (REPLACE_OBJ); | 
3 9 END; { WITH DEF_SCRATCH* DO } 
2 1 MAKE_SCRATCH; 
5 4 WITH DEF_SCRATCH* DO 
336 
3 5 BEGIN 
3 . 
238 EXTENSION secondary (for index area). 
540 PRIMARY := AREA; 
541 PRINUM r= INDEX _AREA _NUMBER; 
54 SECONDARY := ext ren NS ION ONS; 
54 NUMBER := CTOR ( 
544 mI DRTALEOE SK BLOCKS_IN_BUCKET), | 
545 (CINDEX ALLOC+TEMP_ ALCOC) DIV’4), 
246 EDFS$C_1GIGA); | 
248 INSERT_IN_ORDER (REPLACE_OBJ); 
330 END; { WITH DEF_SCRATCH* DO } | 
35¢ MAKE_SCRATCH; 
334 WITH DEF_SCRATCH* DO 
556 BEGIN 
557 
335 Key n pri 
n primary. 

360 Iphone: | 
561 OBJECT_TYPE := PRI; | 
36 PRINUM := IDATACEDFSK_ACTIVE_KEY); | 
266 INSERT_IN_ORDER (REPLACE_OBJ); 
266 END; { WITH DEF_SCRATCH* DO } | 
368 MAKE _SCRATCH; | 
570 WITH DEF_SCRATCH* DO 
571 


572 BEGIN 
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te (+ | 
Ne CHANGES secondary. | 
7 PRINUM := IDATACEDFSK_ACTIVE_KEY); | } 
78 . SECONDARY := CHANGES; | 
279 SWITCH := BDATALEDF$K_KEY_CHANGES); | } 
$B INSERT_IN_ORDER (REPLACE _0BJ); | ‘ 
$88 END; { WITH DEF_SCRATCH* DO } | } 
285 MAKE_SCRATCH; | { 
387 WITH DEF_SCRATCH* DO | { 
589 BEGIN | ‘ 
23 { + | i 
5298 DATAJOEA secondary. 
2594 PRINUM := IDATACEDFSK_ACTIVE_KEY]; | i 
2595 SECONDARY := DATA_AREA; i 
2596 NUMBER := DATATAREA, NUMBER; | ‘ 
2598 INSERT_IN_ORDER (REPLACE_OBJ); | 
3600 END; { WITH DEF_SCRATCH* DO } | 
360 MAKE_SCRATCH; | i 
3604 WITH DEF_SCRATCH* DO | 
606 BEGIN | 
$608 Cs | 
+44 SATAF ILL secondary. | 
611 IDATACEDF $K_ACTIVE_KEY); | 


PRINUM 
SECONDARY 
NUMBER 


DATA_FILL; 

IDATACEDF$K_FOL_FILLI; 
INSERT_IN_ORDER (REPLACE _OBJ); 

END; { WITH DEF_SCRATCH* DO } 

MAKE_SCRATCH; | 

WITH DEF_SCRATCH* DO 

BEGIN | 


{ + 
BATA SEY LORPRESS ION secondary. 


IDATACEDFSK_ACTIVE_KEY); 
DATA_KEY_COMPRESSION; 


ROPIPOPININININININININININININININ 
SOOLES ELST 
DWDONOVUSWN “CO OOnNOu Sw 


ao 


PRINUM 
SECONDARY 


"7? 
VO6-000™ Source Listing Meese habe Pb:4Rise || MNS cbinsaAS Phe’ Pecr- caczeproesiow.pact® cast 
630 SWITCH := BDATACEDFSK_KEY_COMP_WANTED]; 
g INSERT_IN_ORDER (REPLACE_08J); 
6 END; { WITH DEF_SCRATCH* DO > 
6 MAKE_SCRATCH; 
3 
6 


ew 


o 
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BEGIN 
WITH DEF_SCRATCH* DO 
BEGIN 


{ + 
peste. stelaentcn inten secondary. 


SSSSSSS 55 


PRIMI NINI NINN PUNININININININ PPR 


| 
| 
IF IDATALEDFSK_ACTIVE_KEY] = 0 THEN 


ANIA AI AI Od IO OO OO I i en 


PRINUM := IDATACEDFSK_ACTIVE_KEY]; 
65 SECONDARY := DATA_RECORD_ COMPRESSION; 
$2 SWITCH := BDATACEDFS$K_REC_COMP_WANTED); 
43 INSERT_IN_ORDER (REPLACE_OBJ); 
$3 END; { WITH DEF_SCRATCH* DO } 
63 MAKE_SCRATCH; 
$44 END; { IDATACEDFSK_ACTIVE_KEY] = 0 } 
soe! WITH DEF_SCRATCH* DO 
see BEGIN 
2664 
2665 {+ 
09] GURL ECATES secondary. 
668 PRINUM := IDATACEDFSK_ACTIVE_KEY); 
$068 SECONDARY := DUPLICATES; 
on SWITCH := BDATACEDFSK_KEY_DuPS); 
367 INSERT_IN_ORDER (REPLACE_OBJ); 
ore END; { WITH DEF_SCRATCH* DO } 
676 MAKE_SCRATCH; | 
678 WITH DEF_SCRATCH* DO 
$80 BEGIN 
681 
63s IND 
et sRER AREA secondary. 
685 PRINUM := IDATACEDFSK_ACTIVE_KEY); 
686 SECONDARY := INDEX_AREA; 
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687 NUMBER := INDEX_AREA_NUMBER; 
oes INSERT_IN_ORDER (REPLACE_OBJ); | 
go END; { WITH DEF_SCRATCH* DO } | ; 
§3 MAKE_SCRATCH; | 3 
$98 WITH DEF_SCRATCH* DO | 33 
se ea | i 
£38 { + | 33 
700 ty ‘eae secondary. | 33 
tO PR: 1 CEDFSK_ACTIVE_KEY); 33 
70 PRiNUM := IDATA EDF SK_ < ; 
270 SECONDARY := INDEX FILL; 
370% NUMBER := IDATACEDFSK_FOL_FILLI; 33 
$708 INSERT_IN_ORDER (REPLACE_OBJ); | 33 
3708 END; { WITH DEF_SCRATCH* DO } 33 
$tt0 MAKE_SCRATCH; 3 
a2 WITH DEF_SCRATCH* DO | 33 
71 | 
a BEGIN 33 
2715 ‘% 33 
or Sep giaeichecencnes secondary. : 
fig p := IDATACEDFSK_ACTIVE_KEYI; 3 
opie SECOMD r= tf X COMPRESSION; ~ | 33 
$75 SuiTen r= BDATACEDFSE. IDX COMP_WANTED): 33 
$756 INSERT_IN_ORDER (REPLACE_OBJ); 33 
$75e END; { WITH DEF_SCRATCH* DO } | 53 
$758 IF NOT BDATACEDFSK_SEGMENTED] THEN | 3 
rs8 BEGIN 3 
4 1 MAKE_SCRATCH; | 3 
rag WITH DEF_SCRATCH* DO | ; 
ree BEGIN | 
439 te | ; 
738 Lenete secondary. 5 
a4 P := IDATACEDFSK_ACTIVE_KEY); | 3 
740 PRINUM := IDA ACTIVE ; 
SECONDARY := SEG_LENGTH; 
Tee NUMBER r= IDATACC OF $k_KEY_SIZE); ; 


| 
| ED 
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744 INSERT_IN_ORDER (REPLACE_OBJ); | 3 
rte END; | ; 
13 END { IF TRUE NOT SEGMENTED } | 3 
738 ELSE ; 
2} FOR SEGMENT_NUMBER := 0 TO 7 DO | 33 
738 BEGIN | : 
2156 IF SEGMENT_WANTEDCSEGMENT_NUMBER] THEN | i 
5186 BEGIN P 5 
he MAKE SCRATCH; 
2761 WITH DEF_SCRATCH* DO | 33 
388 wi a 
fe at: 
N | 
sree CENGTH secondary. | 3 
$766 PRINUM := IDATACEDFSK_ACTIVE_KEY]; 34 
$758 SECONDARY := SEG_LENG j 34 
ora NUMBER := SECRENT “LENGTHESEGMENT NUMBER]; 3 
$77) SECNUM := SEGMENT_NUMBER; 34 
site INSERT_IN_ORDER (REPLACE_OBJ); 34 
2775 - ¥4 
$276 END; | $4 
sr e: a: 
$780 END; { IF TRUE BDATACEDFSK_SEGMENTED) } | 
218 MAKE _SCRATCH; | 
278s WITH DEF_SCRATCH* DO | 
ies (EVEL 1_INDEX_AREA secondary. | 
73 p := IDATACEDFSK ACTIVE_KEY]; | 
493 SECONDARY := LEVEL1_INDER_AREA; 
8 NUMBER := INDEX _AREA_ NOMBER; 
798 INSERT_IN_ORDER (REPLACE_0BJ); 
799 END; { WITH DEF_SCRATCH* DO } 
799 { + 
800 NAME secondary. 


Dd 8 
vitae a Source Listing "ergenni3 d 93:40:38 bts 


<m 
oo 


IF FIND_OBJECT (SEC, KEY, IDATACEDFSK_ACTIVE_KEY],NAME$,0) THEN 
DELETE_CURRENT; 
END; { IF FALSE BDATACEDFSK_KEY_NAME] } 


801 -) 
80 IF BDATACEDFSK_KEY_NAME) THEN 4 
804 BEGIN 
it MAKE_SCRATCH 
607 wstu vee emai ye) 
809 ‘4 
Bly BEGIN 
Bis LIBSSCOPY_DXDX (SDATACEDFSK_KEY_NAME],STRING); 
B13 STRSFREE1-DX (SDATALEDFSK_KEY_NAME]); 
815 PRINUM 3s IDATACEDFSK_ACTIVE_KEY]; 
seié SECONDARY := NAMES; 
2 18 INSERT_IN_ORDER (REPLACE_OBJ); 
3 $9 END; { WITH DEF _SCRATCH* } 
§ $§ END { IF TRUE BDATACEDF $K_KEY_NAMEJ } 
24 ELSE 
3835 20. 
2827 
2638 
2 
3 
7 


IF ( 
CIDATALEDFSK_ACTIVE_KEY] = 0) 
(VDATACEDF $K_PROLOGUE_VERSION)) 
) THEN 


(09 C9 Cd Cd C9 OD Cd G9 0d OD Cd OD 09 09 CD C9 CD CD CD OD CD CO 
bet wy 
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BEGIN 
MAKE_SCRATCH; 
WITH DEF_SCRATCH* DO 
BEGIN 


POPIMOPINIPONIPO PPO NINN: 


FREESE SELESESS ESE SEES ESSE SS SY 


{ + 
PROLOGUE secondary. 
IDATACEDFSK_ACTIVE_KEY]; { = 0 } 


PRINUM 
SECONDARY PROLOGUE 
NUMBER IDATACEDF $K_PROLOGUE_ VERSION); 


INSERT_IN_ORDER (REPLACE_OBJ); 
END; { WITH DEF _SCRATCH* DO } 
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63 END; { IF CIDATACEDFSK_ACTIVE_KEY] = 0) AND (VDATACEDFSK_PROLOGUE_VERSION]) } 
$e) 1F NOT BDATACEDFSK_SEGMENTED] THEN 

Bes BEGIN 


MAKE SCRATCH; 
WITH DEF _SCRATCH* DO 


Sisce 


9 BEGIN | 
890 | 
871 { + 
ore POSITION secondary. | 
874 PRINUM := IDATACEDFSK_ACTIVE_KEY); | 
875 SECONDARY := SEG POSITION; 
876 NUMBER := IDATACEDFS$K_KEY_POSITION); | 

2878 INSERT_IN_ORDER (REPLACE_OBJ); | 

8 Ds 

3882 END { IF TRUE NOT SEGMENTED } | 
884 ELSE | 
886 FOR SEGMENT_NUMBER := 0 TO 7 DO 
888 BEGIN 
aot IF SEGMENT_WANTEDCSEGMENT_NUMBER] THEN 

2892 BEGIN 

289 

389% MAKE_SCRATCH; 

2896 WITH DEF_SCRATCH* DO | 
898 BEGIN 
899 ‘ 

+ 
901 pogiveen secondary. 
PRINUM := IDATACEDFSK_ACTIVE_KEY); 
SECONDARY :2 POSITION; 
NUMBER r= SECRENT -FOS1TIONCSEGHENT _NUMBER]; 
SECNUM := SEGMENT “NUMBER 
INSERT_IN_ORDER (REPLACE_OBJ); 
END; 
END; 


END; { IF TRUE BDATACEDFSK_SEGMENTED) } 


<m 
mow 
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{ + 
Make type the Last secondary in the key primary. 


15 

16 { + 

: TYPE secondary. 

13 MAKE_SCRATCH; 

1 WITH DEF_SCRATCH* DO 

5 BEGIN 

5 PRINUM = IDATACEDFSK_ACTIVE_KEY]; 
6 SECONDARY = SEG_TYPE; 

i QUALIFIER = IDATACEDFSK_KEY_TYPE); 
9 

9 

932 SECNUM := 7; 

934 INSERT_IN_ORDER (REPLACE_0BJ); 

2936 END; { WITH DEF_SCRATCH* DO } 


w 
wWwnr—o0o 


9g + 
33 After the user has chosen his bucketsize, ask about 
global buffers. 


=} 
IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 
BEGIN 

ASK_GLOBAL_WANTED; 


EeERESE 


MEUM —OOONOUE 


333 


GLOBAL _BUFFER_COUNT secondary. 
IF BDATACEDF$K_GLOBAL_WANTED) THEN 
BEGIN 
MAKE_SCRATCH; 
WITH DEF _SCRATCH* DO 
BEGIN 


PRIMARY 
SECONDARY 
NUMBER 


33 


WAMINIWN 


GLOBAL BUFFER COUNT: 
INSERT_IN_ORDER (REPLACE_OBJ); 
END; { WITH DEF_SCRATCH* DO } 
END { IF TRUE BDATACEDF $K_GLOBAL_WANTED) } 


ELSE 


F 8 
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BEGIN 
IF FIND_OBJECT (SEC,FILES,0,GLOBAL_BUFFER_COUNT,O) THEN 
DELETE_CURRENT; 
END;  € IF FALSE BDATACEDFSK_GLOBAL_WANTED) } 
END; { IF TRUE IDATACEDFSK_ACTIVE_KEY] = 0 } 


{ + 
Show the user what he has. 


CHOSEN_DEPTH2 := CHOSEN_DEPTH + 1; 
IF NOT AUTO_TUNE THEN 
BEGIN 

WRITELN ( 


SHIFT,"The Depth of Key’, IDATACEDF$K_ACTIVE_KEY]:3, 
cone Estimated to be No Greater’, CRLF_SHIFT> 

an, 
CHOSEN_DEPTH:NUM_LEN(CHOSEN DEPTH)," Index Levels, which is ', 
CHOSEN_DEPTH2:NUA_LEN(CHOSER_DEPTH2) ,' Total Levels.’ 


QUERY (EDFSK_RETURN); 
END; 
END; { APPEND_DEF } 
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{ +4 
LINK_RESULTS == Incorporate the ‘designed’ variables into the Linked List. 
This routine puts the final state of the variables into the Definition. 
CALLING SEQUENCE: 
LINK _RESULTS; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


DEF CURRENT 
DEF HEAD 


ROUTINES CALLED: 
none 

ROUTINE VALUE : 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

--) 
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5 PROCEDURE LINK_RESULTS; 


4 BEGIN | 


{ + 
ay the terminal back. 


CLEAR (SCREE 

VISIBLE GREEN} = FALSE 
WAIT_HECP = FALSE: 
TAKE “DEFAULTS = TRUE; 


{ + 
If this is the 1st time through, get the general file attributes. 
IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 

NON_KEY_DEF; 


{ + 

Add this key's data to the Linked List. 
APPEND_DEF ; 

LINKED := TRUE; 


END; { LINK_RESULTS } 


8 | 
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{ ++ 


MERGE _AREA == Collapse area definitions onto one another. 


This routine updates the area sections after adding together allocations. 
CALLING SEQUENCE: | 
MERGE_AREA (CURKEY ,MAXKEY,SRCDATA,DSTDATA,SRCIDX ,DSTIDX) ; | 
INPUT PARAMETERS: | 
CURKEY 


DSTIDX | 
IMPLICIT INPUTS: 


DEF _CURRENT 
DEF “HEAD 


OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 

DEFZHEAD 

ROUTINES CALLED: 

none 

ROUTINE VALUE: 

none 

SIGNALS: 

none | 

SIDE EFFECTS: | 

none | 

me | 
| 
| 
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PROCEDURE MERGE_AREA (CURKEY,MAXKEY,SRCDATA,DSTDATA,SRCIDX,DSTIDX : INTEGER); 


wr 


| 
| 
1 
1 VAR 
155 KEYNUM : INTEGER; 
1 SOURCE _DATA_BUCKET : INTEGER; 
1 SOURCE _DATA_ALLOC : INTEGER; 
138 SOURCE _DATA_EXT INTEGER; 
139 SOURCE“ INDER_ BUCKET : INTEGER; 
140 SOURCE _INDEX_ALLOC INTEGER; 
141 SOURCE ~INDEX~EXT INTEGER: | 
128 BEGIN 
144 
145 { + 
178 | up the defaults in case some Line_objects are not found. 
148 SOURCE _DATA_BUCKET = 3; 
149 SOURCE __DATA_ALLOC = 0; 
150 SOURCE _ XT = 9: 
151 SOURCE INDER_BUCKET = 3; 
136 SOURCE _INDEX_ALLOC = 0; 
137 SOURCE _INDEX_EXT = 0; 
155 { + 
156 Get the bucket sizes, allocations, and extensions of the areas that 
13f are going away. 
159 THESE COULD ALL BE OPTIMIZED BY REALIZING THAT THEY'RE ALL | 
160 ADJACENT LINE_OBJECTS!!! 
162 > 
188 IF FIND OBJECT (SEC, AREA,SRCDATA,BUCKET_SIZE$,0) THEN | 
#4 SOURCE _DATA_BUCKET := DEF _CURRENT* .NUMBER; 
+4 IF FIND_OBJECT (SEC,AREA,SRCDATA,ALLOCATIONS,O) THEN 
19) SOURCE _DATA_ALLOC := DEF _CURRENT* .NUMBER; 
10) IF FIND OBJECT (SEC,AREA,SRCDATA,EXTENSIONS,0O) THEN 
178 SOURCE _DATA_EXT := DEF _CURRENT* .NUMBER; | 
1% IF FIND OBJECT (SEC,AREA,SRCIDX,BUCKET_SIZE$,0) THEN | 
177 SOURCE_INDEX_BUCKET := DEF _CURRENT* NUMBER; | 
+4 IF FIND_OBJECT (SEC,AREA,SRCIDX,ALLOCATIONS,O) THEN | 
iy SOURCE _INDEX_ALLOC := DEF _CURRENT* .NUMBER; 
138 IF FIND OBJECT (SEC,AREA,SRCIDX,EXTENSIONS,O) THEN | 
13s SOURCE _INDEX_EXT := DEF _CURRENT* NUMBER; | 
189 | 
188 


{ + 
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IF FIND_OBJECT (SEC,AREA,DSTIDX,BUCKET_SIZE$,0) THEN 
IF SOURCE_INDEX_BUCKET > DEF _CURRENT*.NUMBER THEN 

DEF _CURRENT*.NUMBER := SOURCE_INDEX_BUCKET; 

IF FIND_OBJECT (SEC,AREA,DSTIDX,ALLOCATIONS,0) THEN 


, 9 If SRC = DST, then ignore the above numbers. 

13) IF SRCDATA = DSTDATA THEN 

198 BEGIN 

194 

195 SOURCE _DATA_BUCKET := 0; 

138 SOURCE _DATA_ALLOC := 0; 

> 44 SOURCE _DATA_EXT = 0; 

ih 4 END; 

3 IF SRCIDX = DSTIDX THEN 

08 ‘. BEGIN 

204 

205 SOURCE _INDEX_BUCKET = 0; 

206 SOURCE_INDEX_ALLOC = 0; 

207 SOURCE _INDEX_EXT = 0; 

208 

209 END; 

210 

211 { + 

212 Now add these to the areas that we're merging into. 

siz Bucket sizes get maximized. 

a8 IF FIND_OBJECT (SEC,AREA,DSTDATA,BUCKET_SIZE$,0) THEN 

sit IF SOURCE_DATA_BUCKET > DEF_CURRENT*.NUMBER THEN 

$39 DEF _CURRENT*.NUMBER := SOURCE_DATA_BUCKET; 

ssi IF FIND OBJECT (SEC, AREA,DSTDATA,ALLOCATIONS,O) THEN 

238 DEF _CURRENT* .NUMBER := DEF_CURRENT*.NUMBER + SOURCE_DATA_ALLOC; 

$$? IF FIND_OBJECT (SEC,AREA,DSTDATA,EXTENSIONS,0) THEN 

238 DEF _CURRENT* .NUMBER := DEF _CURRENT* NUMBER + SOURCE_DATA_EXT; 
9 

580 

Ht 


Peer 


DEF __CURRENT* ..NUMBER := DEF _CURRENT*.NUMBER * SOURCE _INDEX_ALLOC; 
IF FIND_OBJECT (SEC, AREA,DSTIDX,EXTENSIONS,O) THEN 
DEF _CURRENT*.NUMBER := DEF_CURRENT*.NUMBER + SOURCE _INDEX_EXT; 


MOMSMoPofonoforoforyg 


FOR KEYNUM := CURKEY TO MAXKEY DO 
BEGIN 
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4 
4 { + 
‘8 Now point the key section(s) to the right areas. 
° IF FIND OBJECT (SEC,KEY,KEYNUM,DATA_AREA,O) THEN 
2g DEF _CURRENT*.NUMBER := DSTDATA; 
54 IF FIND OBJECT (SEC,KEY,KEYNUM, INDEX_AREA,O) THEN 
56 DEF _CURRENT*.NUMBER := DSTIDX; 
28 IF FIND_OBJECT (SEC,KEY,KEYNUM,LEVEL1_INDEX_AREA,O) THEN 
3 DEF_CURRENT*.NUMBER := DSTIDX; 
$06 EMD; { FOR } 
$e 
64 { + 
344 Now get rid of the old area sections. 
3268 IF SRCDATA <> DSTDATA THEN 
$99 DELETE_PRIMARY_SECTION (AREA,SRCDATA); 
3371 
3578 
ste DELETE_PRIMARY_SECTION (AREA,SRCIDX); 
357 END; { MERGE_AREA } 


IF SRCIDX <> DSTIDX THEN 
| 
| 
| 


nN 8 
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T { ++ . 
3 SHUFFLE_AREAS == Implement Granularity. 
81 This routine puts the area primary sections into their final state. 
8s CALLING SEQUENCE: 
85 SHUFFLE_AREAS; 
ey INPUT PARAMETERS: 
89 none 
90 
91 IMPLICIT INPUTS: 
$36 
ral DEF _CURRENT 
See DEF HEAD 
347 OUTPUT PARAMETERS: 
29 
$505 none 
$00 
$200 IMPLICIT OUTPUTS: 
3302 DEF _CURRENT 
30 DEF _HEAD 
304 
305 ROUTINES CALLED: 
306 
307 none 
308 
309 ROUTINE VALUE: 
$319 
$1) none 
i 
31 SIGNALS: 
314 
315 none 
318 
31 SIDE EFFECTS: 
$318 
a7 none 
333 et 
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3 PROCEDURE SHUFFLE_AREAS; 


4 

5 VAR 

é TEMP_KEY : INTEGER; 
7 TEMP~AREA : INTEGER: 
8 PROLOG_FOR_KEYS : INTEGER: 
3 PROLOG-FORTAREAS : ‘INTEGER: 
s BEGIN 


{ + 
First, see what we have. 


WNWANANANANNN 


WWNNANNW NWA NNN NNN 


5 
%$ SCAN_DEFINITION (TRUE); 
38 { + 
i + a at least 2 keys to support 3 or 4 areas. 
<3 al a a < 1) 
343 (IDATACEDFSK_GRANULARITY] IN C EDFSK_THREE, EDFSK_FOUR J) 
eee ) THEN 
$48 IDATACEDF $K_GRANULARI TY] := EDFSK_TwWO; 
348 { + 
$09 my merge the areas according to whatever granularity was chosen. 
$32) IF ¢ 
352 (HIGH_KEY > 1) 
3353 AN 
3354 (IDATALEDF$K_GRANULARITY] <> EDF$K_DOUBLE) 
$32? ) THEN 
356 
3357 BEGIN 
$328 
359 TEMP_KEY := HIGH_KEY; 
3360 
eee) { + 
308 Put all the alternate keys into areas 2 and 3. 
364 REPEAT 
365 
$06 TEMP_AREA := TEMP_KEY * 2; 
308 MERGE_AREA (TEMP_KEY,TEMP_KEY, TEMP_AREA,2,(TEMP_AREA*1) ,3); 
400 TEMP_KEY := TEMP_KEY = 1; 
374 UNTIL TEMP_KEY < 2; 
374 END; 
3/8 CASE IDATACEDFSK_GRANULARITY] OF 
378 EDFSK_ONE : 
379 
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80 BEGIN i | 
IF HIGH_AREA > 1 THEN : | 
8 MERGE_AREA (1,HIGH_KEY,2,0,3,0); ae | 
86 MERGE_AREA (0,HIGH_KEY,0,0,1,0); 
| 
388 END; 
4 
90 EDFSK_TWO : | 
91 
36 { + 
i, If_we only have one key, then there's nothing to do. | 
399 IF HIGH_KEY > 0 THEN 
397 BEGIN | 
398 | 
inp MERGE_AREA (1,HIGH_KEY,2,1,3,1); 
3201 END; 
3402 
03 EDFSK_THREE : 
404 
44 BEGIN 
307 MERGE_AREA (1,HIGH_KEY,2,2.3,2); | 
3209 END; 
10 
1 EDFSK_FOUR : | 
13 BEGIN | 
315 { NULL-STATEMENT = all the work was done above } ; | 
| 
17 END; 
18 
4 EDFSK_DOUBLE : 
54 BEGIN | 
38 { NULL=STATEMENT - this is the initial situation } ; | 
< END; 
3 OTHERWISE | 
34 { NULL-STATEMENT } ; | 
31 END; { CASE } 
38 (+ 
$ Lastly, add the length of the prolog to area 0. 
36 PROLOG_FOR_KEYS := 0; 


7 
{ + 
H Key 0 descriptor is in the Ist prolog block. Others must go in following 
prolog blocks, 5 per block. 


= 
-—o 


4g IF HIGH_KEY > 0 THEN 
re BEGIN 
r¢ PROLOG_FOR_KEYS := HIGH_KEY DIV 5; 
IF (CHIGH_KEY MOD 5) <> 0) THEN 
PROLOG_FOR_KEYS := PROLOG_FOR_KEYS + 1; 
END; 


{ + 
Add in the key 0 descriptor. 


PROLOG_FOR_KEYS := PROLOG_FOR_KEYS + 1; 
proleg bots for areas start after the ee wyer pee keys. 
g is allowed. 7 area descriptors fit in a block. 
PROLOG _FOR_AREAS := (HIGH_AREA+1) DIV 7; 
IF (C(CHIGH_AREA+1) MOD 7) <> 0) THEN 
PROLOG_FOR_AREAS := PROLOG_FOR_AREAS + 1; 


SAAAAAAAAAA MINN & 
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{ + 
Locate the Line_object that has the area 0 allocation in it 
and add the prolog size to it. If not found, let RMS defeutt it all. 


IF FIND_OBJECT (SEC,AREA,O,ALLOCATIONS,0) THEN 


DEF __CURRENT* ..NUMBER := DEF CURRENT* .NUMBER 
76 MAR_ Av ty. UIDATALEDF SK tt SIZE) 
77 (PROLOG_FOR_KEYS+PROLOG_FOR-AREASS 
78 89); {= largest mane Sty Prolog $ 


pe es 
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END; { SHUFFLE_AREAS } 
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{ +4 
CALC_ARRAY == Do the calculations for a surface plot. 
This routine sets up xy_array. 

CALLING SEQUENCE: 


BSLSSLINLSSELSALAS 


| 
| 
CALC_ARRAY; | 
INPUT PARAMETERS: | 
none 
IMPLICIT INPUTS: 

98 none | 
200 OUTPUT PARAMETERS: 
25 none | 
304 IMPLICIT OUTPUTS: 

506 none 

507 
508 ROUTINES CALLED: 

509 
510 none 

511 
312 ROUTINE VALUE: | 
51 

514 none 
515 
516 SIGNALS: | 
517 
518 none 
519 | 
520 SIDE EFFECTS: 

321 
5 ¢ none 

52 

524 -- } 
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$ PROCEDURE CALC_ARRAY; | 
§ VAR | 
| : INTEGER; | 
5 J : INTEGER; 
1 TEMP INTEGER INTEGER; 
; TEMP INT : INTEGER; 
234 BEGIN 
2 $ WRITELN (SHIFT,"Working ..."); 
8 IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_FILL_SURFACE THEN | 
240 GRAPH_TYPE := EDFSC_SRF_DECREASING 
ri ELSE 
26 GRAPH_TYPE := EDFSC_SRF_INCREASING; 
546 CASE IDATACEDFS$K_SURFACE_OPTION] OF | 
548 EDFSK_FILL_SURFACE : 
549 
220 BEGIN 
226 Y Lert := ‘Initial Load Fill Percent Ss | 
223 IBATACEDFSK_DESIRED_FILLJ := IDATACEDFSK_Y_LOW]; | 
555 END; 
556 
22 EDFSK_SIZE_SURFACE : 
559 BEGIN 
560 
361 IF VARIABLE_RECORDS THEN 
568 Y_LABEL := ‘Mean Record Size , 
565 ELSE 
566 ; 
at Y_LABEL := ‘Record Size "3 
3 i IDATACEDF $K_MEAN_RECORD_SIZE) := IDATACEDFSK_Y_LOW); 
371 END; | 
57 EDFSK_KEY_SURFACE : | 
574 
37? BEGIN | 
£79 Y LApet := ‘Ke Lengeh i 
378 IBATACEDFSK_KEY_SIZE := IDATACEDFSK_Y_LOW); 
580 END; 
581 
582 EDFSK_INIT_SURFACE : 
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BEGIN 


Y LABEL "Initial ,ged 
IBATA EDF SK_ INITIAL. COUNT 


END; 
EDFSK_ADDED_SURFACE : 
BEGIN 


Y LAort := ‘Additional Record Coun “i 
IBATACEDF$K_ADDED_ COUNT] IDATACED EDF SK_Y_LOW: 


END; 
OTHERWISE 
{ NULL-STATEMENT } ; 
END; { CASE > 
FOR I := 0 TO MAX_ARRAY_ROW DO 
BEGIN 
FOR J := 0 TO 31 DO 
BEGIN 


{ + 
Bump the bucketsize and recalculate. 


IDATACEDF SK BLOCKS_IN_BUCKET] 
XY_PLOTCI,JJ 


END; { FOR J } 


J+; 
PROLOGUE3_DEPTH; 


Fatt the color_row, and copy that into the array. 
TEMP_INTEGER = NATURAL_DEPTH; 
FOR TEMP_INT2 := 0 TO 31 DO 

COLOR_PLOTCI,TEMP_INT2] := COLOR_ROWCTEMP_INT2); 
CASE IDATACEDFSK_SURFACE_OPTION) OF 


EDFSK_FILL_SURFACE : IDATACEDESK_DESIRED_ FILL] 
IDATACEDE $K TOES RED“FILL) #7 1DATACEDFSK_Y_INCR); 
EDFSK_SIZE_SURFACE : IDATACEDFSK MEAN RECORD SIZE] := 
IDATALEDF $K_MEAN_RECORD atts + TDATACEDFSK_Y_INCR); 


EDFSK_KEY_SURFACE : IDATACEDFSK_KEY_SIZE] —:= 


cal Ve 4-277 
ASTER: e 


EDF .SRCJEDFDESIGN.PAS 


Page 72 
29° (305 


4' 
4' 
4' 
4 
4' 
r 
4 
4 
4 
4 
4 
é 
4 
4 
4 
* 


7 


H 9 | 
vet a Source Listing Merten ee ede ee eee mGARE PER Pepe ShcJEDFOESIGN. PASS? (303 
9 IDATACEDFSK_KEY_SIZE] + IDATACEDFSK_Y_INCRI; | 
§ EDFSK_INIT_SURFACE : pavorcery IMEI TAL COUNT) 73 
IDATALEDFSK_INITIAL_COUNT] * IDATACEDFSK_Y_INCRI; 


EDFSK_ADDED_SURFACE : IDATACEDF$K_ADDED_ COUNT) r= 
JDATACEDF$K_ADDED_ COUNT) * IDATACEDFS$K_Y_INCRI; 


OTHERWISE 
{ NULL=STATEMENT } ; 
END;  { CASE > | 
END; { FOR I ) 
END;  { CALC_ARRAY } 
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Source Listing 
{ +4 
SETUP_GRAPH == Setup to call EDFSGRAPH. 
This routine sets up to call EDFSGRAPH. 
CALLING SEQUENCE: 
SETUP_GRAPH; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINES CALLED: 
none 
ROUTINE VALUE: 
none 
SIGNALS: 
none 
SIDE EFFECTS: 
none 
-- } 
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70 


70 PROCEDURE SETUP_GRAPH; 

7 BEGIN 

705 

7 { + 

re —— the boundary markers. 

709 IDATACEDFSK_Y_LOW]_ := 0; 

710 IDATALEDFSK_Y-HIGH] := 0; 

ay IDATACEDFSK_Y-INCR] := 0; 

af IF NOT AUTO_TUNE THEN 

715 WRITELN; | 

716 | 

71 { + 

At Now fill up the xy_array (if needed). 

720 IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_INIT_SURFACE THEN | 

139 BEGIN | 

724 QUERY (EDFSK_INITIAL_COUNT_LOW); 

725 QUERY (EDFSK~INITIAL~COUNT-HIGH); 

726 AUTO_SCALE (0,EDFS$C_TGIGA)? | 
END | 
ELSE 


QUERY (EDFSK_INITIAL_COUNT); 


QUERY (EDFS$K_LOAD METHOD); 
QUERY (EDFSK_ASCERDING_LOAD); 


SNS NNN NGS 
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32 IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_ADDED_SURFACE THEN 

739 BEGIN 

741 QUERY (EDFS$K_ADDED_COUNT_LOW) ; | 
7% QUERY (EDF$K~ADDED~ COUNT -HIGH); 
43 AUTO_SCALE (0,EDF$C_1GIGA); 
745 END | 
7% 
7% ELSE 

748 
749 QUERY (EDFSK_ADDED_COUNT); | 
751 QUERY (EDFSK_ASCENDING_ADDED); 

ip QUERY (EDFSK"KEY_DIST): | 
34 IF IDATACEDFSK_SURFACE_OPTION) = EDFSK_FILL_SURFACE THEN 

75 BEGIN 

75 


758 QUERY (EDFSK_FILL_LOW); 


am 
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AUTO SCALE C31 1003 | 

END | 
ELSE 
QUERY (EDFSK_DESIRED_FILL); 
QUERY (EDFSK_RECORD_FORMAT); 
IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_SIZE_SURFACE THEN 


BEGIN 
QUERY (EDFSK_SIZE_LOW); 
QUERY (EDFS$K~SIZE-HIGH); 
AUTO SCALE (T, CURMAX_REC 
IDATACEDF $k_MAX_RECORD_SI 

END 

ELSE 


ASK _MEAN_RECORD_SIZE; 


QUERY (EDFSK_KEY TYPE); 
QUERY (EDF SK” SEGMENTED); 
SEGMENT NUMBER := 0; 


| 
| 
| 
) . 
2E) := IDATACEDFSK_Y_HIGH]; 
| 
} 


IF IDATACEDFSK_SURFACE_OPTION)] = EDFSK_KEY_SURFACE THEN 
BEGIN 
QUERY (EDFSK_KEY_LOW); 
QUERY (EDFSK~KEY-HIGH); 
AUTO_SCALE (T,MAR_KEY_SIZE); 
END 
ELSE 
ASK_KEY_SIZE; 
ASK_KEY_POSITION; 
ASK~KEY~DUPS; 
EDF $k PROLOGUE _VERSION) ; 


QUERY ( 

ASK_KEY_C 
ASK-REC~COMP; | 
ASK~1DX~ COMP; 
IF NOT AUTO_TUNE THEN | 


WRITELN; 


{ + 
Since calc_array is called only if it’s not a Line plot, we don't 


have to conditionalize its writes for not auto_tune. (nointeractive 
uses only Line plots) 


519 IF IDATALEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 
821 {+ 

; § Now fill the xy array (if needed). 

824 CALC_ARRAY; 

£23 { SETUP_GRAPH } 
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{ ++ 
PLOT_AND_DESIGN == Show the graph on the screen and design the file. 


This routine displays the graph for the file and lets the user change 
the file parameters (design the file). 


CALLING SEQUENCE: 
PLOT_AND_DESIGN; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 


CONTROL ZEE_TYPED 
SYSSINPOT: 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


CONTROL_ZEE_TYPED 
SYSSOUTPUT : 


ROUTINES CALLED: 


QUERY (EDF SK_SURFACE_OPTION) 
SETUP_GRAPH 


ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

o- } 


020000000000 
SEARS 


WN “SO OCONOULSWN “OC OONAUES WN —OOW 


83 
83 
84 
84 
84 
84 
84 
84 
84 
84 
84 
84 
85 
385 
85 
85 
85 
85 
85 
85 
85 
5 
86 
386 
386 


gee 


Bt 


<m 


904 
3906 
7 
909 
| 
5 


1 
1 
1 
1 
1 
1 
1 
1 
2 
2 


oom 


Nn 9 
16-Sep-1984 01:10:30 VAX-11 Pascal 
Source Listing ee 93:40:30 DISKSVMSMASTER 
PROCEDURE PLOT_AND_DESIGN; 
BEGIN 


{ + 
See what kind of graph he wants. 
QUERY (EDFSK_SURFACE_OPTION) ; 


{ + 
Find out what the user's perensrers are, and fill the xy_array (if needed). 
Indicate that questions should be visible now - even if optimizing. 


SETUP_GRAPH; 

VISIBCE QUESTION  := TRUE; 

TAKE _DEFAULTS := AUTO_TUNE; 
{ + 


Make bottom Lines of screen scroll. 


LIBSSET SCROLL (PROMPT_LINE,LINES_PER_PAGE); 
SCROLLING_SET := TRUE; 
WAIT_HELP := TRUE; 


vw 


“ 
+ 


Init to do non-move on Ist time thru 
FIRST_PLOT := TRUE; 


yv 


“~ 
” 


Show the user the calculated depths. 
PLOT_GRAPH; 


w 


this will loop until the user types control/Z or 
LINK_RESULTS makes LINKED true. 

LINKED := FALSE; 

WHILE NOT LINKED DO 

BEGIN 


* what the user wants to vary. 

QUERY (EDFSK_DESIGN_CYCLE); 

CASE IDATALEDF$K_DESIGN_CYCLE) OF 
EDFSK_RF : QUERY (EDF$K_RECORD_FORMAT); 
EDFSK_RS : ASK_MEAN_RECORD_SIZE; 

EDFSK_KL : ASK_KEY_SIZE; 


Ve. 


seeuincianatinensenpereinem —_—_— 


} 
4-277 Page 79, 
EDF. SRCTEDFDESIGN.PAS;Y (34). 


} 
| 
| 
| 


<m 


EC 
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EDF DESIGN ib-Se -1984 01:10:30 VAX-11 Pascal V2.4-277 Page 80 
04- Source Listing = 8ep-19 4 93:30:30 DL EKSUMSMASTER  FEDF -SRCIEDFDESIGN.PASS? (34) 
; 3 EDFSK_BF : QUERY (EDFSK_DESIRED_FILL); 

; 5 EDFSK_EM : QUERY (EDFSK_BUCKET_WEIGHT); 

i t EDFSK_IL : QUERY (EDFSK_INITIAL_COUNT); 

B7p EDFSK_KP : ASK_KEY_POSITION; 

341 EDFSK_LM : QUERY (EDFSK_LOAD_METHOD); 

38 EDFSK_AR : QUERY (EDFSK_ADDED_COUNT); 
i EDFSK_DK : ASK_KEY_DUPS; 

Seen EDFSK_RC : ASK_REC_COMP; 
Sesh EDFSK_KC : ASK_KEY_COMP; 
392! EDFSK_IC : ASK_IDX_COMP; 
3933 EDFSK_PV : QUERY (EDFSK_PROLOGUE_VERSION); 
3995 EDFSK_KT : QUERY (EDFSK_KEY_TYPE); 
ea t4 EDFSK_FINIS : LINK_RESULTS; 
3959 EDFSK_wP : 
3960 
3961 BEGIN 
396 
396 { + 
Soce shie is the write fresh plot function. 
3968 FIRST_PLOT := TRUE; 
3967 PLOT_GRAPH; 

968 

969 END; 
3970 
$05 OTHERWISE 

973 { NULL-STATEMENT ) ; 

3974 

975 END; { CASE } 

97 

97 { + 

978 If we just finished putting up a new plot, or we're done, 

Bap ont do it again. 

+4 IF NOT (CIDATACEDFSK_DESIGN_CYCLE] = EDFSK_WP) OR LINKED) THEN 
MF BEGIN 

6 IF IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 
9B CALC_ARRAY; 

988 

989 PLOT_GRAPH; 


END; 
END; 


10 
16-Sep-1984 7:10:30 
b-ben-1984 01:10:30 
{ If IDATACEDFSK_DESIGN_CYCLE) <> EDFSK_WP } 
{ WHILE } 


Source Listing 


EDF SRESET_SCROLL; 
{ PLOT_AND_DESIGN } 


VAX-11 Pascal VE sbeets peg 
DISKSVMSMASTER: CEDF ..SRCJEDFDESIGN.PAS; 


81 
(34) 


eee ee 


{ ++ 


SEQ_REL_WORK == Do the calculations for designing Seq and Rel files. 
This routine does all the work. 


CALLING SEQUENCE: 
SEQ_REL_WORK; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 


none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

--) 


ascal Ve.bee7? Page 82 
Source Listing MASTER: LEDF .SRCJEDFDESIGN.PAS;1 (35) | 
| 


, 


Sep-1984 VAX-11 Pascal V2.4-277 Pa 83 
Source Listing 1g-fep-1984 94: 42: 2 DT KSUMSMASTER FEOF -GRCJEDFDESIGN. PAG? T* (303 
4043 PROCEDURE SEQ_REL_WORK; 
4045 BEGIN 


{ + 
404 Ae out how the user is going to use the file. 
4050 QUERY (EDFSK_NUMBER_RECORDS); 
4051 QUERY (EDFSK~ =RECORD b mwa 


405 QUERY (EDF SK" BLOC 
405 ASK _MEAN_RECORD "SIZE; 


{ + 

4056 — the definition. 
INIT_DEF; 

4059 NON_REY_DEF; 

END; { SEQ_REL_WORK } 


F 10 
Source Listing 81 9Be 93:48:32 DL akSvMSMASTER: FéDF-SR SRCIJEDF DESIGN. pass?” of 


soa 


4094 ROUTINES CALLED: 


4063 { +4 | 
4064 
$802 INDEXED_DESIGN == Do the dirty work to design an indexed file. 
toe? This routine does all the calculations needed 2 design an indexed file. 
tbe8 It also serves the redesign and optimize functions. 
tego CALLING SEQUENCE: | 
407 INDEXED_DESIGN (REDESIGN_FLAG,ADD_KEY_FLAG) ; | 
4074 INPUT PARAMETERS: 
4075 
4076 REDESIGN FLAG 
4077 ADD_KEY_FLAG 
4078 
4079 IMPLICIT INPUTS: 
4080 
4081 OPTIMIZING | 
408 CONTROL ZEE TYPED 
408 SYSSINPOT: | 
4084 
4085 OUTPUT PARAMETERS: 
4086 
4087 none 
4088 | 
4089 IMPLICIT OUTPUTS: 
4090 | 
4091 CONTROL_ZEE_TYPED 
409 SYSSOUTPUT: 
409 

PLOT_AND_DESIGN 
4097 
4098 ROUTINE VALUE: 
4099 
4100 none | 
4101 
4102 SIGNALS: 
4103 
4104 none 
4105 
4106 SIDE EFFECTS: 
4107 
4108 none 
4109 
4110 -- } 


10 
EDF DESIGN 188 -1984 01:10: VAX=11 Pascal V2.4-277 Page _85 
VO4-000 Source Listing =Sep-19 4 93:43:32 DT SKSUNSMAS TER: FEDF SRCJEDFDESIGN.PASCT (38) 


SCAN DEFINITION (TRUE); 
IDATACEDF $K_NUMBER_KEYS) 
BEGINING KEY 

ENDING_KEY 


HIGH_KEY + 1; 
HIGH_KEY; 


ree PROCEDURE INDEXED_DESIGN (REDESIGN_FLAG,ADD_KEY_FLAG : BOOLEAN); 
4114 VAR 

4115 BEGINING_KEY INTEGER; 

ree ENDING_KEY INTEGER; 

ait ACTIVE _KEY_INDEX INTEGER; 

4119 BEGIN 

4120 

4121 { + 

a ¢ Find out the cluster factor of the target disk. 

o : QUERY (EDFSK_CLUSTER_SIZE); 

4126 { + 

tise Initialize the script. 

4180 IF NOT OPTIMIZING THEN 

4131 BEGIN 

$135 

413 IF REDESIGN_FLAG THEN 

4134 

4135 BEGIN 

4136 

4137 . © 2 
tt +4 The add_key script has already setup Cactive_key]. 
4140 IF NOT ADD_KEY_FLAG THEN 

rhs QUERY (EDFSK_ACTIVE_KEY); 

4144 BEGINING _KEY := IDATACEDFSK_ACTIVE_KEY); 
4145 ENDING_KEY := BEGINING_KEY; 

4146 

4147 END 

4148 

4149 ELSE 

4150 

4151 BEGIN 

ol2g 

415 QUERY (EDFSK_NUMBER_KEYS); 

4154 BEGINING_KEY := 0; 

4135 ENDING_KEY := IDATACEDFSK_NUMBER_KEYS) = 1; 
4157 END; 

4158 

4159 END { IF TRUE NOT OPTIMIZING } 

4160 

4161 ELSE 

$166 

416 BEGIN 

4164 

4165 

4166 

4167 

4168 


F - 710: - 
VOu-000 Source Listing if Sep- 198 i 3:38:30 DLeKSUMSMASTER EEDF sh SRCIJEDFDESIGN.PAS; i 38s 


4179 END; { IF FALSE NOT OPTIMIZING } 

417 { + 

elt? Now Loop until all his keys are (re)defined. 

olf? FOR ACTIVE _KEY_INDEX := BEGINING_KEY TO ENDING_KEY DO 
1 BEGIN 


IDATACEDFSK_ACTIVE_KEY] := ACTIVE_KEY_INDEX; 


IF ( 
(REDESIGN_FLAG) 
(NOT ADD_KEY_FLAG) 
) THEN 


WARN_OF __ERASE; 

PLOT_AND_DESIGN; 
END; { FOR ... } 
{ + 
Now that we're done with the hard part, set the function default 
to succeed. 
IF AUTO_TUNE THEN 

QTABCEDFSK_CURRENT_FUNCTION).DEF AULT := EDFSK_EXIT; 


BS END; { INDEXED_DESIGN } 
08 END 
04 


SSSLESRALLSSELERL 


"{ End of file: SRCS:EDFDESIGN.PAS } 


ee rele Cage Coo 


V04= Generated Code ~3een Fhe PEs sy | WeeednsaRe ta Pepe Saczeprpesion.paset® «305 
TITLE EDEDESIGN 
"IDENT \ 


\v04- 
00000 -PSECT S$CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,2 
65 72 47 6F 20 6 C 69 46 20 41 20 0000 C.AAA: .ASCII \ A File of Greater than 31 Index Levels \- 
g3 38 31 $8 8 5 eb ft r 29 3s 38 St af OO0E Min eats ... | . 
61 68 20 6 § g 9 78 65 $e § 001C 
69 66 69 63 6 07 0 ée 6 § : ey $ : 
0 20 20 68 74 70 $3 $8 0 78 g 4 49 $8 C C.AAB: .ASCII \Index Depth \ 
0 20 20 20 20 20 20 20 20 20 p 8 20 iets 
00 00 6° 6C F B ORE C.AAC: .ASCII <27>\0751L\<0><0><0> 
00000000 00000680 02C00000 4444 40 i 00064 C.AAD: .LONG %*X4080004,0,*xX2C00000,*x680,0,*xXD,*x20,0,- 
00000000 0000000C 00000000 000000 44443 Reo e “XC,0,°X1F 
00000000 00000680 02C00000 80000008 atte 00090 C.AAE: .LONG %*X4080004,0,*xX2C00000,*x680,0,°xXD,*x20,0,- 
00000000 0000000C 00000000 000000 BOOT On TE Boone “XC,0,°X1F 
6— 6F 69 74 69 6E 69 66 65 44 $8 65 4 54 QOOBC C.AAF: .ASCII \The Definition of. Key\<0><0><0> 
00 00 4 79 65 48 20 66 oF $0 QOOCA 
61 6C 70 65 72 20 62 gf gc o 4 eo $44 C.AAG: .ASCII \ will be replaced. \<0><0> 
44 20 74 6€ 65 72 72 75 2 20 és 68 $? 20 itd C.AAH: .ASCII \ The Current Definition will be replaced\- 
6C 6C 69 77 20 6E 6F 69 74 69 6E 69 66 65 O0O00F6 \. \<0><0> 
20 2E 65 63 61 6C 70 65 72 20 65 8 60 BR 08 
00000000 00100F00 00000000 00000000 00114 C.AAI: .LONG 0,0,*°X100F00,0 
00 00 00 Batss Ap 00.0 
4B 20 66 6F 20 68 74 70 65 44 20 65 $8 3 ie C.AAJ: ASCII \The Depth of Key\ 
20 65 74 61 6D 69 74 73 45 20 73 69 9 00138 C.AAK: .ASCII \ is Estimated to be No Greater\<0><0> 
74 61 65 72 47 20 6F 4E 20 65 6 $8 6F 74 Bote 
0 0 i 65 0154 
00 00 00 20 6€ 61 68 74 93138 C.AAL: .ASCII \than \<0><0><0> 
2c 73 6C 65 76 65 6C 20 78 65 64 of 49 20 0160 C.AAM: .ASCII \ Index levels, which is \ 
0 73 69 $3 68 63 69 68 77 20 Boge 
2E 73 6C 65 76 65 6C 0 6C 61 4 6F 36 0 Oiae C.AAN: .ASCII \ Total levels.\<0><0> 
00 2E€ 2E€ 2E $8 67 6E 69 $6 3 6F ° bo188 C.AAO: .ASCII \work ing voc VOR 
46 20 64 61 6F af 6C 61 69 74 69 6E 49 0194 C.AAP: .ASCII \Initial Load Fill Percent \ 
20 20 20 74 6€ 65 63 72 65 50 $8 gf 35 $2 AE 
69 53 20 64 72 6F 63 $3 33 $8 $1 65 40 O1B4 C.AAQ: .ASCII \Mean Record Size \ 
20 20 20 20 20 20 20 20 2 0 $3 7A pits 
20 20 20 65 7A 69 53 20 G4 72 SF as 88 % B1pe C.AAR: .ASCII \Record Size \ 
20 20 20 20 20 20 20 20 20 2 30 p $3 oir 
0 20 3 0 68 74 67 6E 65 4C 4 1F4 C.AAS: .ASCII \Key Length \ 
0 20 20 20 20 20 20 20 20 20 39 8 3 6 of 
3 8 $f ! of $ 20 of $i 69 8 ; 3 z . 14 C.AAT: .ASCII \Initial Load Record Count \ 
6 $5 35 33 056 


EE | 


VO4-000 Generated Code ie sep 198t P338:88 — DEEKSUMSMASTERYEEDF SkcJEDFDESIGN.PASST® fh 


63 65 52 30 of $] 6E 6f 69 74 69 64 $4 41 0234 C.AAU: .ASCII \Additional Record Count \ | 
20 20 20 20 20 74 6E 75 6F 43 4 F 024 | 
0 20 20 025 | 
0000 PROLOGUE3_ BUCKETS: : 0174) 
O7FC 0000 -QORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10> 
5 0¢ C2 0000 SUBL2 #12,SP | 
06 BC OD 00 MOVL a4 (R12). INIT NUMBER_RECORDS | 
2 08 BC DO 00009 MOVL  § @8(R12) -ADDED_NUMBER_RECORDS 
C 0c ec 00D MOVL a12(R125, INDER LEVEL | 
FC OAD € DO 00011 MOVL _ INDEX_LEVEL,-4 4tEP : 0199 
FC AD OOF 0018 PUSHAB =4(FPY 
000000006 EF 01 FB 0001 CALLS #1,CALC Buc gCVERHEAD 
4 20 DO O001F MOVL RO, BUCKET 
FC AD C 00 00022 MOVL _—sINDEX aera : 0200 
FC AD 9F 00026 PUSHAB =4(FPY 
000000006 Ef 01 FB 00029 CALLS i CALC REC_OVERHEAD 
1 000000086 EF 4g 0030 CVTLF IDATA+2T6, RT : 0202 
Sy FE ashe teet 
55 51 000000206 Ef ig 00038 MULF3 RDATA+32,R1,R5 : 0206 
" 000000846 2? BS boode ett MO ATAe132 
ov 12 0004¢ BNEO 
oh D O04 MOVL. R5,KEY_SAVINGS : 0218 
57 000000E86 EF 000000086 a C3 0005 SUBL3 IDATAY216. IDATA+232,R7 + 0220 
23 000000246 ef tf itt MULE ae A+36,R7 
57 57 4A 90067 CVTF RA DATA SAVINGS 
57 56 C0 006A ADDL2 KEY_SAVINGS,DATA SAVINGS : 0227 
57 O00000E8G EF 37 C3 90060 SUBL DATR_ SAVINGS, IDATA+232,RECORD_ SIZE 
56 000000086 EF 98 C3 Soor? 3$: SUBL 3 INDEX SAVINGS 51 , IDATA*+216, TEMP_REC : 0243 
ummeneats a re ae —_ 
58 OOOOODECG EF 01. «C1 O008A ADDL “1. IDATRe : 0248 
57 56 58 ¢7 00092 DIVL *TEMP_REC, osPeoRD. SIZE 
59 56 00 00 7A 90096 EMUL ss #0. . TEMP REC.RO ~ : 0250 
59 59 59 8 78 00098 EDIV R8.R9.RO,RO 
59 05 OO0A0 TSTL = RO 
00v 18 O00A2 BGEQ 46s 4$ 
59 8 CO O00A4 ADDL2 RB.R9 
9 D3 OOA7 4$: STL. OR 
ov 1 OOA9 BEQL 469 
D6 O00AB INCL  RECORD_SIZE : 0252. 
00v 11 OOOAD RB iS 
5] 000000286 EF 44 OOOAF 8$ MULF 2 +40,R : 0269 
57 000000086 2? 4 tf 88 sual $ RY INDEX SAVIN OS ATAS216 RECORD. SIZE 71 
54 000000006 y 4 if a9 9$ SUBL 3 Se OVERHEAD ,BYTES_PER_BUCKET ,R4 : 8335 
55 4 00000004G EF 4 CC MULF3 = R DATA 
2 00000006 ; de 00007 RULES aan a (Naiaseortes 0285 
4 4 4A DE CVTF Re ADOED_AVAILABLE_BYTES 
Q 7 (CO 000E ADDL?  RECORD_STZE RECORD OVERHEAD ; 0292 | 
5 0 C6 O00E4 DIVE RECORD “OVERHEAD, INTT_AVAILABLE_BYTES 


| 
| 


e 10 : - -4°277 Page 9) 
agg "ESCESRE CURSE YNEDINGRIERLA Bebe 2Uhcaeoroesuon.raSSP cs 
viv Generated Code - 356: ; os 
on ADDED _AVAILABLE_BYTES : | 
fs 4 5 7H bivL2 INGEX. LEVEL ; 8801. 
01 iv } FE ty INIT_RECORDS_PER_ BUCKET, #1 a 
rig 3 SOAL #1, INIT_RECORDS_PER_BUCKET : 03 | 
” 4 ° F BRB 16$ + 08 
ov D ° Fg 128:  TSTL INDEX LEVEL 
r 3 re eLEe ie RECORDS_PER_BUCKET,#2 
02 01 oF CHL i . i a 
Yy ath SeYL #2, INIT_RECORDS_PER_BUCKET : 0307 
” i H 16$: = ‘TSTL INBEX_ LEVEL 
abu M i $ ity ADDED_RECORDS. PER. BUCKET, #1 
9 RBI REE TP en secon, pense Lom 
. . 
a on a a3 
abv if sii ca ADDED_RECORDS_PER_BUCKET,#2 | 
- EG 460 s«23$ on 
Ov 18 0011 BG oak ton aii ; 
33 oe PF OOTiE ADDES ADDED RECORDS PER BUCKET : 0819) 
” os ay INIT RECORDS PER BUCKET .< | 
crores 091 , Vere tane BUCRETLINDEN LEVEL) R? : 0325) 
57 OOOOOOO0GEF4C oD i 7 MOVA INET MUeER ot | 
" mee he a INIT "NUMBER RECORDS, (R75 a 
° 6} j VAL ADDED_NUMBER_BUCKETSCINDEX_LEVELJ.R9 ; 
1 Sere 6 5 ADDED-RECORDS PER BUCKET,- 
rt | ere eet ee 038 
38 36 8 99 73 ere Ooty INIT RECORDS PER BUEKET RO RO, RO 
” ™ ” D5 00149 TSTL RO 
Gu 1B oot RBpL2 aut RECORDS_PER_BUCKET.RO 
. 83 SP HEIS cg, BBL? | altneconns ren 
abu i3 00182 GEOL 968, ita ; 0335 
R_R : 
ee 9 a cc ox eta | 
” 7” ” D5 0016 STL «OR | 
ov t oes ite pee deplete ir | 
” 3 5 167 27$: ——*TSTL RO 
Ov 1 5169 BEQL 298 : 0540 | 
69 06 00168 INCL R9) i £83? | 
000000846 EF D Oe 298 TSTL DATA+! hae 
6 VAS 801 3 BONE (R7), INIT PRIMARY BUCKETSCINDEX LEVEL) : 0351 
Fae ef Bb OO? MOVE (RO) ADDED PRIMARY. BUCKETSC INDER-LEVEL : 0353 
sai t 4 9 D0 0017 MOVL . aay, 6 
itd § DO 001 3 31$:  MOVL INDEX LEVEC, DEE : O36 
ees Ff § 18¢ CMPL (R9),F 
’ BGTR 34$ 
¥ DS i ‘ TSTL JNDEX_LEVEL 
Ov +} 193 BEQL 4 


10 # 
EDF DESIGN I§- Sep-1984 VAX=11 Pascal V 0) 
riteeit Generated Code eats r 9}: }2: 2 DISKSVMSMASTER: Bebe ch SRCJEDFDESIGN.PAS; 529° (385 ) | 
01 7 01001 CMPL (R7), #1 | 
3 16 1 A BGTR i 
oorev HY i D 34$ aA TADEX LEVEL 0380 
by 3 19F BNEQ pygex . 
ae a VA} CLRB —«- FOUND 1 0384 
00v000000006 EF 0 E1 OO1A BBC #0, OPTIMIZING, 37$ + 038 
000000006 EF sane Fa 1 CALLS, ‘ *POINT_AT_ANALYSIS : 330 
1 F oF 18 PUSHAB #21 - 
000000846 EF  9F 001BB PUSHAB IDATA+132 
4 8 9F 001C1 PUSHAB #4 
1 F oF 1€4 PUSHAB #1 
000000006 EF 5 Fe 1c? CALLS #5,FIND_OBJECT 
4 0 90 001CE MOVE RO. FOUND 
000000006 EF 00 re 0101 CALLS #0.POINT_AT_DEF INITION + 0396 
Ov 4 €9 00108 37$: BLBC FOUND, 398 + 0400 
54 000000006 EF 00 001D MOVL DEF COR 4 + 0404 
52 27 As D0 OIE MOVL 39¢R4) INIT NUMBER _RECORDS 
52 90 09 OO1ES 39$: MOVL  (R7), INIT_NUMBER_RECORDS : 0412 
0Ov 11 001EB BRB 42$ 
5 67 DO OO1ED 41$:  MOVL  (R7),INIT_NUMBER_RECORDS : 0422 
é 69 00 OO1FO 42$:  MOVL  (R9),ADDEB_NUMBER_RECORDS + 0426 
5C D6 ~OOTF INCL INDEX_LEVEC + 0428 
1F 5¢ D1 O01F5S CMPL §_ INDEX“LEVEL, #31 + 0433 
03 «14 001F8 BGTR +3 
0000v 31 OO1FA BRW 443 
000000006 EF 9F OO1FD PUSHAB SHIFT : 0437 
04 oD 0020 PUSHL &4 
000000006 EF 9F 00205 PUSHAB PASSE ouTP 
000000006 ‘EF 3 FB 00 0 CALLS 5 PASSURITE, _STRING 
000000006 cf oF 00 PUSHAB ANST REV ERSE~ 
060000006 FF OF OO2IA PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 00 20 CALLS #3,PASSWRITE_STRING 
FFFFFB7F cf OF 00 7 PUSHAB (.AAA 
C DD 00220 PUSHL #60 
000000006 ai OF 0022F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00235 CALLS #3 PASSURITE _STRING 
000000006 cf oF 0 3¢ PUSHAB A ANSI_ 
000000006 FF BD oes ce PUSHAB P ssy OUTPUT 
000000006 EF 3 FB 0 4A CALLS #3 PASSURITE STRING | 
000000006 EF 9F 21 PUSHAB PASStY OUTPUT 
000000006 EF 1 £B 0 7 ALLS | PASSURITELNZ 
00004140 8F DF 0025 PUSHAF > 0441 
000000006 EF 1 FB 00264 ALLS a ,LIBSWAIT 
5 Bb 00se8 pusHt to 
0 oD 0 of PUSHL #0 
00838048 8F DD 1 PUSHL 763787 
000000006 EF 4 FB 77 CALLS PaSeiGNA L 
FC AD = Ht p0 i 44$: wove, IN att X_LEVEL,-4(FP) : 0450 | 
F8 AD a8 po , VL ADDED NUMBER_RECORDS ,-8(FP) 
F8 AD 9F 00289 PUSHAB -B(FPY 


casa 


; Routine Size: 665 bytes, 


000000006 


000000046 


000000046 
000000046 


000000046 
000000046 


Generated Code 


F4 
0254 


E4 
EF 000000946 
000000006 


000000006 


52 000000086 


50 000000006 
000000E8G 


02 


EF 


00v000000106 
EF 


EF 


00v000000106 
EF 


EF 


AD ; 
CF 08 


Routine Base: SCODE + 00254 


4 
4 
4 

1 

| 
00000000 3 
000000E4G 3 

51 000000006 3 
Q00000E4G 
0 

0 

5 

5 

5 

0 

0 

0 

0 


<= < 


000000CCG 


<= 


<<c< 


50 $0000 ACG 
50 0000435¢8 


$0 Donossce. 
0 66664066 
50 ACDA402A 


3 sgenes 


0 66664066 
5C ACDA402A 


1 
1 


Be 13:50:30 


po 8 MOVL 
F PUSHAB 
FB 0029 CALLS 
04 0029 RET 
00 PROLOGUE3_ DEPTH: 
0004 0000 soem 
D4 0 éLRL 
BY sete Cat 
ee G00E tat 
D4 0001 CLRL 
F3 0001C AOBLEQ 
i ae 
Rie | ee 
D0 ira OVL 
DF 00046 PUSHAL 
fe sed CALLS 
D5 0005 TSTL 
12 00059 BNEG 
D0 00058 MOVL 
0 BREE os. Ba 
C1 00068 4$: ADDL3 
D1 0007 CMPL 
18 OOO7A BGEG 
31 0007C BRW 
CQ 0007F ADDL 
C3 00082 SUBL 
D1 OOO8A CMPL 
18 00091 BGEG 
31 00093 BRW 
A nes 
ita -DISPL 
31 O00Ag eeu 
ae OOA7 7$: CVTLF 
41 90BR Ti 
46 d0se 8$: CVTLF 
4 0 C DIVF2 
Fi CA BBC 
13 00pe Bue 
43 aoe 108: MULFS 
4 GoeE 128: CVTLF 
4s an DivFe 
i or 
45 B15 148: MULF3 


VAX-11 Pascal V 


+ 5): Nae aeatcaaae tthaiale 
#3 PROLOGUE3_BUCKETS 


“M<R2> 
RO . 


RO, 1 

INI T_NUMBER BuCKETS{ IJ 
ADDED_NUMBER BUCKETS 1) 

R Cs PER BUCRETLI 

#512, IDATA+148,BYTES_PER_BUCKET 
D EPEST 

#1,CALC_BUC_OVERHEAD 

RO .BUCKET OVERHEAD 


#1,CALC_REC_OVERHEAD 
DATA+228 


$ 
FPO PEC RECERD_SE8 
IDATA+228, RECORD, SIZE 


IDATA#+204, IDATA#216,R2 
RECORD_SIZE Re 


21$ 

BUCKET_OVERHEAD ,RECORD_OVERHEAD 
RECORD OVERHEAD BYTES _PER_BUCKET .RO 
RY, IDATAS 32 


21$ 
ARATA*E26 00.82 


+172,R0 
0.0,RO0,RDATA+4 


$16, 10$ 
9,RO,RDATA+4 
.6667,RO,RDATA+4 
+172,R0 


ATA*+16,14$ 
9,RO,ROATA+4 


0.6667,R0,.RDATA+4 


Seneeee poge 91 
DISKSVMSMASTER:LEDF .SRCJEDFDESIGN.PAS;1 (38) | 


0569 


am 


Generated Code 
00000000G_ EF 


o 
= 
ooo 


om 
WAannNOnNS On 
< < 


OOVOOOODOOFG EF 
000000006 EF 66664066 


00000000G EF ACDA402A 
8444 
00000886 E 
00000C0G 


0254 CF 
50 000000006 bov 


3; Routine Size: 363 bytes, 


SE FEQO CE 
00000000G_ EF 
5¢ 01 
52 1s 
00000094G_ EF 2 
O4ED CF 00 
FEF8 CD42 50 
FDFC CD42 
E2 5¢ 3F 
5C 00004080 8F 
30 
31 
53 3F 
32 33 
54 FEF8 CD42 
64 
00v 
3F 52 
23V 
FEFC CD4 
gov 
FEOO CD42 1 
FDFC CD42 
00v 
50 4 
Ov 
3F 2 
gyv 
FEOO cose 1 
5 ge 
51 C 
oov 
21 ‘ 
2 V 
: 
000000986 Gov 
5C CCCDSECC F 


Routine Base: S$CODE + 004ED 


[J 
oO 


4 
9A 001 
11 001 
1 
4 1 
79 : 8 
50 001 g 
Bi 
oF bie, 
fe 15A 
D FF 
11 198 
D4 0016 
04 0016A 
1¢ 00000 
9E BOnts 
D4 0000 
DO 00000 
dO pRe tg 
DO 0001 
FB QOO1A 
DO OO0TF 
D4 00025 
F3 Q002A 
50 0002E 
D4 00035 
D4 00037 
DO 00039 
DO 0003C 
DE 54 
D5 00045 
12 00047 
D1 00049 
i 0004C 
DS 0004 
i Bpoe 
50 0005 
D4 0005 
ih 0006 
th Hs 
D1 99 
d O6A 
US 
007 
11 00078 
Di O007A 
18 00070 
4 7F 
D 8 
1 08 
4 O8A 


—— rN 
ww 
wn 


10 


ep-19 
ep-19 


rr 


ma 
AM 
7 ef 


1$: 


2$: 


7$: 
8$: 


11$: 


12$: 


16$: 


a 95:58:38 


VAX=-11 Pascal 
MOVZBL #100,IDATA 
BRB He 


BBC #0 BDATA+15 198 
#°F0.9,RDATA 


MOVE 
BRB 

MOVE  § #*F0.6667,RDATA 

PUSHAL #0 

PUSHAB IDATA+136 

PUSHAB IDATA+19 

CALLS #3,PROLOGUE3_BUCKETS 
NOVL DEEPEST ,PROLOGUE3_DEPTH 
CURL PROLOGUE3_DEPTH 


sENTRY NATURAL DEPTH, “M<R2,R3,R4> 
AB =512(SP) ,SP 
CLRL L..EAKPOINT_ RIGHT 
#1,R12 


R12, RANGE 

" RANGE , IDATA+148 

CALLS #0. PROLOGUE DEPTH 

M RO, DEPTH=4CRANGE] 
TALLY-4CRANG J 

#63,R1 


1$ 
#°F 1.0, CURRENT_WEIGHT 
CLRL § CURRENT_DEPTH 
CLRF = CURRENT-TALLY 


MOVL 
MOVL R3 RANGE 

MOVAL DEPTH=4CRANGE),R4 

TSTL  (R4) 

BNEQ = 8$ 

CMPL = RANGE, #63 

BGEO 

TSTL DEPTHCRANGE] 

BLEQ S 

MOVF  CURRENT_TALLY, TALLYCRANGE) 
CLRF TALLY=4TRANGE 

CMPL (R4) ,CURRENT_DEPTH 

BLEG 

CMPL =— RANGE, #63 

BGEG ©=-:«*dM'1$ 


MOVF | CURRENT TALLY, TALLYCRANGE) 
MOVL  (R4), CURRENT DEPTH 

MOVF URRENT_WEIGAT, CURRENT_TALLY 
CMPL RANGE, #33 


EQ 
ADDF2 CURRENT WEIGHT,CURRENT_TALLY 
TL ATA+152 


EQ 
ADDF2 = #*F0.1, CURRENT_WEIGHT 


) 

V2.4-277 Pa 92. 
DISKSVMSRASTERY EDF SRCJEDFDESIGN.PASST® (38), 
1 


oh 


FFE2 


54 


50 
FEF8 CD40 


FC 


5c 


AD 


Generated Code 


FFFFFFFF 


F8 


000000006 
000000006 


A8 


WYWM OOUNM WW VW Ov 
NOW —NWWOS OTF —EOOPM —MNO-— 


Owmuonuinw 
OOormnrvow 


nn 
m 
nm 
oo 
o 
J 


FDFC CD 


So 
So 
FS FVMOOCCOUMOOMUU EO FOUN Funoown 


TOO FNWN SO FOUN WOW VINMONON OE THOM —WOoOw 


< 


< 


<< 


< 


— 


FFFFFFFFGEF 
FC 
00V 
0 
00Vv 
FC OU AA 
00V 
FC AD 
00v 
02 
00v 
01 
60 
00v 
FEF8 CD4 
00V 
a5 
FEF8 CD4 
00v 
000000006 he 
0000003F 


F8 AD 
000000806 O5 


0 


MMMMOVVIVZOOOoow 


08 —§ $$ OOO MOM NN § OOO "OSU!" 0 OW @ "OOO f Fu 
MONI MD VINO DW YVNVIO F OVMNVOSI BD NN BO POM OOM S NUVI MNO SNS FP LMO ONS Oo ON MWD 


SOOOCOCOSCOCOOOSOOOOSOSOOOOOSOSOOOSOOSOSOOSOOOOOOSOOOOOOOOOOSOSOOOOOSOOOOSOSoO 


po tp bee eR Fat te et ot fh oy ete + tne ee Ones Gt Mrbom—eet +o 4 & Me 


OD "OMIM OW) Oo — 


11 
-Sep-1984 
= 8ep-19 4 


27$: 


288: 


30$: 


} 


94:40:30 VAX=-11 Pascal Ve seeere page 93) 
:36:36  DISKSVMSMASTER:LEDF.SRCJEDFDESIGN.PAS;1 (38). 
SOBGTR R3,2$ 

CLRF § MAX_TALLY : 0805 

CLRL § MAX"RANGE ; 0806 | 
MOVL  #1,MIN_BKS : 0807 

MOVL + 0812 

MOVL R12 RANGE 

CMPL  DEPTH=4CRANGE],41 : 0814 

BGEG 1$ 

ADDL3. #1,RANGE,MIN_BKS : 0816 

AOBLEQ Ho$,R12,198 

MOVL #63, R1 ; 0822 | 
CMPL sc. Rit | 
BLSS 25$ 

MOVL = R12,RANG | 
CMPF —- TALLY=4CRANGE] ,MAX_TALLY : 0824 

BLEQ  24$ 

MOVE TALLY=4CRANGE),MAX_TALLY 0828 

MOVL RANGE, MAX_RANGE 0829 

ACBL = R1,#-4,R12,22$ 

CMPL § MAX_RANGE,#1 : 0836 

BGEQ 27 

MOVL §§#1,MAX_RANGE 0838 

MOVL §§ MAX_RANGE,R12 0844 

CMPL = R12, #63 

BLEQ + | 
BRW 423 

MULL3 #4,MAX_RANGE,RO | 
EXTV #0 #32,DEPTH-4CROJ,R4 | 
MOVL. R12,RA 

SUBL3 MAX_RANGE,RANGE, TEMP_DiST : 0848 

MOVAB COLOR_ROW-1CRANGE),RO ; 0850 

CMPL =‘ TEMP_BIST, #9 

BGEQ 

MOVB #3, (RO) : 0854 

BRB § 

CMPL §_ TEMP_DIST,#8 : 0858 

BLEQ 

CMPL §- TEMP_DIST,#21 | 
BGEQ 

MOVB #2 (RO) > 0866 

BRB 35§ 

MOVB = #1, (RO) : 0874 

CMPB (RO) #3 ; 0881, 
BNEQ 
CMPL DEPTH-4CRANGE ,R4 
BEQL 38% 
MOVB #2, (RO) > 0887 | 
CHPL DEPTH=4CRANGE],R4 ; 0895 | 
TSTL | BREAKPOINT_RIGHT | 
BNEG 41 
PUSHAL #6 : 0899 | 
MOVL _— RANGE, -8( FP) | 
PUSHAB = 
PUSHAB IDATA+128 | 
CALLS #3,MAX_FACTOR 
MOVL §§ RO,BREAKPOINT_RIGHT | 


Et 


oC 


11 
EDF DESIGN 1§-Sep-1984 03:40:30 VAX-11 Pascal Vessee?7 page 94 
v04-= Generated Code ~Sep-1984 13:36:36 — DISKSVMSMASTER:CEDF .SRCJEDFDESIGN.PAS;1 (38) | 
8C 5¢ 3 F3. 00166 41$:  AOBLEQ #63,R12,28$ 
1 D1 OO16A 428:  CMPL MAX’ RANGE, #1 : 0907. 
6 V 12 0016D BNEG 44$ 
000000006 Ef 9 16 MOVB 4#3,COLOR_ROW : 0911 
4 FEFS cok} 9 aft MOVL DEPTH=4CRAX_RANGE],LEFT_ADJ_RANGE ; 0912) 
54 FEFG coe DO OO17E 44$:  MOVL  DEPTH=8CMAX RANGE], LEFT_ADJ_RANGE : 0920 
5¢ 3 Oi C 0184 sual #1 MAX RANGE RI + 0922 
52 g D0 O1BA 45$ MOVL R12,RANGE | 
50 FFFFFFFFGEF4S  9€ 00180 MOVAB COLOR_ROW-1CRANGE RO : 0926 | 
54 FEF8 C4 i Dj 0195 CPL b BTH=4 RANGE] ,LEF f_ADJ_RANGE 
60 08 $8 00190 MOVB a (RO) : 0928 | 
00v 11 001A0 BRB 48$ 
60 01 9 O01Ag 47$: MOVB  #1,(RO) : 0932 
E2 5c OF O01, 48$:  SOBGTR R12,45$ 
5¢ 07 pO 001AB8 5S0$:  MOVL  4#1,R12 2 0941 
52 SC D0 OOIAB 51$:  MOVL = R12, RANGE | 
01 FEF8 CD42 D1 ~OOTAE CMPL  DEPTH-4CRANGE),#1 5 0943) 
00v 18 001B4 BGEO 
FFFFFFFFGEF42 94 00186 CLRB_ COLOR, ROW-1CRANGEJ ; 0945 | 
EA SC 3F §©6F 3 001BD 53$ AOBLEQ #63,RT2,51$ 
0000003F BF DdF 001C1 PUSHAL #63 : 0951 
F8 AD 53 D0 001C7 MOVL | MAX_RANGE,-8(FP) | 
F8 AD 9F O01CB PUSHAB -8(FP) 
000000806 EF 9F OOICE PUSHAB IDATA+12 
000000006 EF 3 FB 00104 CALLS #3,MAX_FACTOR 
00000000G_ EF 50 pO 00108 MOVL RO.BREAKPOINT_ MID 
000000006 EF D3 001E2 TSTL BREAKPOINT RIGHT : 0954 
ooodv $j SOlER Bea 65s 
52 53 D0 bOIED OVL  MAX_RANGE,RANGE : 0961 
00v 11 O01FO BRB 56$ + 0963 
526 Oo1F2 55$: INCL _—- RANGE + 0969 
3F 52 «D1 001F4 56$:  CMPL  —s« RANGE, #63 
00v 18 OO1F7 BGEQ 
O3 FFFFFFFFGEF42 91 ooiF9 CMPB = COLOR_ROW-1CRANGE],#3 
EF 13 0201 BEQL 
FFFFFFFFGEF42 95 00203 58$:  TSTS | COLOR_ROW-1CRANGE] : 0971 
0Ov 13 OO20A BEQL  60$ 
0000003F 8F dF 0020C PUSHAL #63 : 0973 
F8 AD " 32 po 00 12 HOVE RANGE ,-8(FP) | 
000000806 EF 9F 6 18 PUSHAB DATA 28 
00000000G_ EF ; FB O021F CALLS #3,MAX_FACTOR 
00000000G_ EF 0 0g 0 6 MOVL RO BREAKPOINT _RIGHT | 
53 53 D1 O02cF 60$:  CMPL ——- RANGE, MAX_RANGE ; 0976 | 
v 13 2 EQ. = 62 
0000003F 8F ODF 4 PUSHAL #6 ; 0978 | 
F8 AD 52 1 ¢3 O23A SUBL3_ #1,RANGE,-8(FP) 
£8 AD 9F 0023F PUSHAB -8(FP) 
000000806 EF 9F 0 4g PUSHAB IDATA+128 
000000006 EF ; FB 4 CALLS #3,MAX_FACTOR 
000000006. EF DO 0024F MOVL RO, BREAKPOINT_RIGHT 
00v 11 00256 BRB 65$ 


<m 


011 | 
EDF DESIGN 16-Sep-1984 01:10:30 VAX=-11 Pascal V2.4-277 Pa 95 | 
106-500 Generated Code 823e0- 138s 95:40:33 DL SKSUMSMASTER: FEDF -SRCJEDFDESIGN.PAG=T* (38) 
0000003F 8F DF 00258 62$:  PUSHAL #63 7 0983. 
D f 0 0025 MOVL  MAX_RANGE,-8(FP) | 
F8 AD OF 0026 PUSHAB -8(F | 
000000806 EF  9F 0026 PUSHAB IDATA+128 | 
000000006 EF 3 OF $ CALLS #3,MAX_FACTOR | 
000000006 FF 0 »D MOVL. RO,BREAKPOINT RIGHT | 
52 3 01 ¢ 79 65$ SUBL3 #1,MAX_RANGE , RANGE 7 0991. 
O0v 15 00270 BLE §6= 71$ : 0993 | 
g Vv 11 0027F BRB 68$ > 0995 | 
7 00 81 67$: DECL RANGE : 0997) 
01 3 : D] 0283 68$: CPL RANGE , #1 | 
54 FEF8 co4g p4 09 e8 CPL DEPTH-GCRANGE],LEF T_ADJ RANGE 
38 D6 00 36 71$ INCL RANGE : 1002 
53 521 00 92 CMPL RANGE ,MAX_RANGE > 1004 
00v 19 00 BLSS 73$ 
0000003F 8F oF 00 97 PUSHAL #63 : 1006 | 
FB AD 53 D0 0029D OVL  MAX_RANGE,-8(FP) | 
F8 AD 9F 002A1 PUSHAB = 
000000806 FF 9F 002K PUSHAB IDATA+128 | 
000000006 EF 03 FB OOZAA CALLS #3,MAX_FACTOR 
000000006 _ EF 50 00 00281 MOVL § RO, BREAKPOINT_LEFT | 
OO0v 11 00288 BRB 74$ 
0000003F 8F DF 002BA 73$:  PUSHAL #63 ; 1011) 
F8 AD 52 D0 002C0 MOVL RANGE, -8(FP) 
F8 AD 99F 002C4 PUSHAB -8(FP 
000000806 EF  9F 002C7 PUSHAB IDATA+128 | 
000000006 EF 03 FB 002CD CALLS #3,MAX_FACTOR 
000000006 EF 50 D0 00204 MOVL RO, BREAKPOINT_LEFT | 
50 000000006 EF 00 002DB 74$: = MOVL BREAKPOINT LEFT, RO ; 1017) 
000000006 EF FEF8 CD40 D0 002E2 MOVL  DEPTH-4CROJ,DEPTHPOINT_LEFT 
0 000000006 EF 00 00 EC MOVL § BREAKPOINT_MID ; 1018 | 
000000006 EF FEF8 CD40 00 O02F MOVL §DEPTH-4CROJ,DEPTHPOINT_MID 
0 000000006 EF 00 002FD MOVL § BREAKPOINT_RIGHT, : 1019 
000000006 EF FEF8 CD40 00 00304 MOVL _—_ DEPTH-4CROJ ,DEPTHPOINT_RIGHT 
000000006 EF  9F 0030E PUSHAB BREAKPOINT LEFT : 1024 
0000006 EF 9F 00314 PUSHAB PAGEPOINT_CEFT | 
00000006 EF 9F OO3IA PUSHAB NUMPOINT_CEFT 
000000006 fF 9F 00320 PUSHAB EXAMPOINT_LEFT 
D DO 00326 MOVL FP,R1 
OOv AF 04 FB 00329 CALLS #4,EXTEND_INDEX_INFO 
00000006 EF 9F 00 PUSHAB BREAKPOINT MID ; 1030 | 
99000006 EF 9F 0 PUSHAB PAGEPOINT AID | 
0 G EF OF PUSHAB NUMPOINT MID | 
000000006 FF 9F 0033F PUSHAB EXAMPOINT_MID | 
51 D D0 00345 MOVL = FP, | 
OOv AF 04 FB 8 CALLS #4 EXTEND_INDEX_INFO | 
000000006 EF 9F 00 PUSHAB BREAKPOINT RIGHT : 1036 | 
00 9006 EF 9F 00 PUSHAB PAGEPOINT RIGHT | 
90 000G EF 9F 00 PUSHAB POINT RIGHT | 
0000006 gf oF E PUSHAB EXAMPOINT_RIGHT | 
51 dD 00 4 MOVL = FP, | 
OOv AF 04 FB 7 CALLS #4, EXTEND_INDEX_INFO | 
50 000000006 EF 20 00568 MOVL § BREAKPOINT_MID,RATURAL_DEPTH ; 1042 | 
4 00 RET 3 1064 | 
| 


<m 


aR a eae a eS Pe pe a ean 


11 | 
EDFDESIGN ig-ge 1984 0:30 VAX-11 Pascal V2.4=-277 Page 96) 
Foe nb00 Generated Code =300 71383 % 3 38 DLEKSVMSMASTER FEDF -SRCIEDFDESIGN.PASSY (38) | 
; Routine Size: 883 bytes, Routine Base: SCODE + 00658 | 
000 EXTEND_INDEX_INFO: : 0696 | 
0004 66 ~" , WORD =mcR2> oe ns 
52 51 0 000 MOVL R1,R 
000000946 EF 10 D 00 OVL @16(R12), 1DATA+148 : 0707! 
O4ED CF : p CALLS #0,PROLOGUE3_DEPTH : 0708 | 
FCA DO 0001 VL —- RO, = 4(R2) | 
04 BC D4 00016 CLRL a4 (R12) : 0709 | 
08 BC D4 0019 CLRL @8(R12) : 0710 
52 1 00 0001C MOVL #1,R2 : 071 
50 : D0 OO1F 1$ MOVL. 2.1 
04 BC 00000000GEF46 ¢ 2 ADDL2 RECS_PER BUCKETCI],a4(R12) : 0715 
51 08 BC O0000000GEF4O 1 90 5 ADDL3 INIT-NUMBER BUCKETSC1J,a8(R12) ,R1 + 0716) 
08 BC 51 QOOO0000GEF4O ¢1 000 ADDL ADDED NUMBER_BUCKETSL14,R1,a8(R12) 
DC 52 1F F3 0003F AOBLEQ #31,R2,1$ 
04 BC 02 C6 00043 DIVL2 #2,a4(R12) : 0721 
oc BC 08 BC 10 BC C5 00047 MULLS @16(R12),a@8(R12),a12(R12) + 0722 
04 0004E RET + 0724 
; Routine Size: 79 bytes, Routine Base: SCODE + 009CB | 
00000 PLOT_GRAPH: + 1094 
007¢ 0000 ; “M<R2,R3,R4,R5,R6> 
5E 9¢ AE 9E 00002 MOVAB -100(SP).SP 
05 000001186 EF 01 00006 CMPL —_—‘IDATA+280,45 : 1104 
00v 12 0000D BNEQ  2$ 
000000006 EF D4 O000F CLRL_ GRAPH_TYPE : 1111 
000000006 EF FFFFF601 EF 20 28 00015 MOVC3 #32,C-AAB,Y_LABEL : 1112 
C 000000006 EF D0 00021 MOVL § CURRENT GRAPH_INDEX, TEMP_INTEGER : 111 
000000006 EF 000000006 EF DO 90086 MOVL —§ LAST_GRAPH_ INDEX, CURRENT~GRAPH_INDEX + 1118 
000000006 EF C 00 00033 MOVL § TEMP-INTEGER,LAST_GRAPH_INDEX : 1119 
00v00000000G_ EF 00 £1 0003A 2$: BBC #0, FIRST_PLOT,4$ F 1183 
56 00 02 00042 MCOML GRAPH” SWITCH : 11 2 
000000006 EF D4 0004 CLRL CURRENT_GRAPH_INDEX : 113 
000000006 EF 01 00 00048 MOVL § #1,LASTGRAPH~ INDEX + 1134 
0Ov 11 00052 BRB 
05 000001186 FF D1 00054 4$: CMPL =‘ IDATA+280,45 5 1144 
Ov 12 00058 BNEG $ 
56 000000006 FF D0 9005p MOVL AST_GRAPH_INDEX,GRAPH_SWITCH : 1146 
Ov 11 00064 BRB 
sé 01 00 00066 6$ MOVL #1,GRAPH SWITCH : 1150 
05 000001186 ie Dt 0069 8$ CHP L IDATA+280,# : W152 
000000006 FF D4 0972 CLRL CURRENT _GRAPH_ INDEX 3 1156) 
Ov 11 0007 BRB 13$ 
2g D4 OOO7A 10$: CLRL : 1167 | 
53 DO OOO7C 11$: MOVL_ R2, RANGE | 
000000946 EF 53 1 C1 0007F ADDL3 #1. RANGE, IDATA+148 21171) 
4 000000006 EF g C5 09 7 MULL3 #32, CURRENT_GRAPH_INDEX,R4 3 1172 | 
4 CO 0008F ADDL2 R | 
O4ED CF 00 FB 00092 CALLS # -PROLOGUES DEPTH 
O0000000GEF 44 0 D9 09 MOVL XY_PLOTERS | 
52 if F3 QO09F AOBLEQ #31,R2, | 
0658 CF 0 FB OOA3 CALLS #0,NATURAL_DEPTH : 1179 
5¢ DO OO0A OVL RO, TEMP_INTEGER 
C D4 OOOAB CLRL = RV : 1181 | 


<m 


esau 


; Routine Size: 410 bytes, 


D4 


9C 


Generated Code 


50 

52 000000006 _ EF 
, ovoo0000cer £8 SOCOOOOOSEF 2 
63 00000000G EF 00s 
00vO0000000G_ EF 00 
FFFFFSSD Fr 
000000006 Fe 
000000006 _ EF 3 
000000006 4 
000000006 EF 1 
00000000G_ EF 
000000006 Fe 
000000006 EF 2 
AD FFFFFS2D EF 2c 
D8 AD 00000000G EF 
E4 AD 00000000G EF 
D4 AD 
CC AD 010E0020 8F 
DO §=©AD 00000000G_ EF 
cc AD 
00000018G EF 
00000014G_ EF 
000000106 gf 
C8 AD 6 
C8 AD 
000000006 gf 
AD FFFFFSOB- EF C 
AQ AD Q0000000G EF 
AC AD 00000000G EF 
9C_ = AD 
00000000G_ EF 
000000006 EF 09 
00v00000000G_ EF 00 
000000006 EF 


03 00000000G_ EF 
00000000G EF 000000006 "FF 
50 eooneey G cf 
09 
06 000001086” "Er 
05 000001086 EF 
oot 


< 


F 
1 


OOM ™M"ODOOONVOOTS OOO OOS OOO BOONOMNOS OMUIM NOHOOD 
PD WMMNOMNNO NNN HMO MMMOW MN MW HO NO N39 3 WW POWO 
OOQOQCoooooooooooooooooooQoQoQoQoQoQoQoQoOoooo3oooo 
OND EMDWDNVO OUWI™ OQWODOD UN9 £9 NH FP FO NU SOO) 


Routine Base: SCODE + OOAIA 


0000 89999 
re 
a6 Son14 
ie 
1} 8008 


~Sep-1 
eo- 
~Sep-1 


128: 


= 
Ww 
wn 


384 13:50: 


MOVL 
MU 3 
ADDL 


3 VAX-11 Pasc 
DISKSVMSMAS 
He ,TEMP_] 
4 2 ,CURR nt TeRAPH. INDEX,R2 
teton Hou TENP. INT2],COLOR_PLOT(R2] 
eit “TUNE, .#3 
REGIS,17$ 
C. AAC 
rh 
PASSFV_OUTPUT 
a3 ape et Hy STRING 
PASSF 
#1 son TELN2 
COL. ON NE 
Lit LIBSERASE 
#44. =4 


4 
COLOR’ “PLOT. 4 
COLOR “PLOT. =2 
52 
(F 


417696752, - 
ABEL 68 


IDATA+ 
GRAPH_SWITCH,-56(FP) 
-56(FP 


CURRENT_GRAPH_INDEX 
E,-100(FP) 


DEC ackl 208 
#0, 


<> 
#0 ,AUTO_TUNE,.+3 
F_HEAD DEF _TAIL 
Beat HEAD ro 


— > 
-oz8 


ii 
DATA+264 #6 
IDATA+264 ,#5 
+3 

$ 


l V2. 
TER: ‘febresh SRCJEDFDESIGN.PAS; ot (38) 


1183} 
1187, 


1194 
1202 


| 
| 


1207, 


1303 | 


vos~600 


3; Routine Size: 334 bytes, 


Generated 
03 00000000G_ EF 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 
000000006 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 
EF 


Code 


0 
000000006 


000000006 
000000006 
000000006 
FFFFF GSE 

000000006 


FFFFF4&7C 

000000006 
000000006 
000000006 


000000006 
000000006 
000000006 
000000006 
FFFFF4SA 

000000006 
000000006 
000000006 
000000006 
000000006 
000000006 
0000001F 


Shy fe 
nf 
F F 
3 «FB 
ro 
Ye 
He 
15 ) 
FF oF 
nt 
EF 0D 
fF oF 
Hf 
12 0D 
i i 
ee 
Hf 
3 «FB 
0Ov 11 
: k 
sf 
i? 
Hf 
a 
A 0D 
FF oF 
is 
: § 
3 «CFB 
7 
F OF 
> ££ 
oF 

FB 

‘ 

04 


Routine Base: SCODE + O0BB4 


0000 


1 
1g-fep-1 4 VAX-11 Pasc 
~3ep7 138 93:53:88 
3F 5$: BBS 40. , 1SAM_ORG,. 
7 BRwW 
4 PUSHAB SHIFT 
2 PUSHL 
PUSHAB Passe OUTPUT 
2 CALLS af Assualre _STRING 
F PUSHAB ANS R ERSE~ 
5 PUSHL #4 
7 PUSHAB PASSFV_OUTPUT 
D CALLS #3,PASSWRITE_STRING 
074 PUSHAB C.AAF 
SrA PUSHL #21 
7 PUSHAB PASS$FV_OUTPUT 
00 CALLS ne »PASSWRITE_STRING 
00 PUSHL 
008B PUSHL IDA oe ere 
0091 PUSHAB aeesev 
0097 CALLS #3, PASSURITE. INTEGER 
009E PUSHAB (C.AAG 
OO0A4 PUSHL #18 
00A6 PUSHAR PASSFV_O 
Boat CALLS e. PASSURITE, STRING 
008 PUSHAB 
0089 PUSHL 
0088 PUSHAB PASSFV UTPUT 
000C1 CALLS #3, PASSonI TE _STRING 
000C8 BRB 
BOOCA 7$: PUSHAB SHIFT 
00D0 PUSHL 
00008 PUSHAB PASSFY_0 
00D CALLS #3 PASSURLTE, STRING 
OODF PUSHAB ANSI_REVERSE~ 
O0ES PUSHL #4 
00E7 PUSHAB PASS$FV_OUTPUT 
000ED CALLS #3,PASSWRITE_STRING 
OOOF4 PUSHAB C.AAH 
BRO A PUSHL #42 
OOFC PUSHAB PASSEY ouTP 
00108 CALLS 5 PASSWRITE, LSTRING 
9910 PUSHAB ANSI R 
010F PUSHL #4 
0111 PUSHAB PASSFV_OUTPU 
0117 CALLS a. PASSURITE. _STRING 
OIE PUSHAB 
124 PUSHL fae 
9 6 SH PASSFV_OUTP 
1 CALLS #3 PASSURITE STRING 
1 PUSHAB PASSr 
1 CALLS #1 SO eetN2 
140 8$: PUSHAL 
146 ALLS #1,QUERY 
14D 11$: T 
99000 NON_KEY_DEF : 
0000 -WORD “M<> 


scal V2 -4e2 Page 98 | 
DISKSVMSMASTER: CEDF. CRCIEDFDESIGN.PAG’ (38) | 
+3 


| 


11 | 
EDF DESIGN - :1U: = «4° | 
tet Generated Code ety 7 94:49:38 DE KSUMSMASTER FEDF -SRCIEDFDESIGN.PAS TY’ (385, 


000000006 
000000006 


ov fggut 


0006 


000000006 
000000006 
19 


000000006 


000000006 

000000006 

000000006 
19 


000000006 
000000006 


19 
25 

900000006 
19 

0000006 


oove 000046 
000000006 


000000006 
aeteee | 
ie 


0000000C 
00000008 
00000027 


EF 
EF 
FF 
5 ooo000ges 
ef 000000106 

000000106 
AC 


00000000 


00000000 
00000000 
OF 
00 


5 000000006 
0 
; 00000000 


A 
EF 
5 000000006 
AO 
8 95 
, 00000000 


n 
EF 
50 000000006 
* 00000000 
E 
5 000000006 
000000086 
000000086 


WOOOMOM SMOOQOWDOSMOOO$GOMBDOWOFMMOOMOWOWMOMWWOOWAOOMOM SP MOOOWO@MOCOC 


RHO MIMO ROO NOOO NOS MO WM NO WMO "OCCT BHO NO RN HHO NOON 


00000000 


BOOS S > DOOLP DS IIE PP PAAR E POW MOOS 
~“ 
= 


OS FLOM NOOWM SOMO DW NUIT IOS OW FN MPOMIOO UMVIM" DOWN WIE 


SS MOOS OOOOOCOSOOS 
et BOON HMMMOOGMOO 


TSOONOOOSI WMG OOS B99 OO BN OOS BAM M OOS OF - MNO OO"ONOOIW WMO NO NS 
NOCD WD "OD -D MO LOWD *OOCOCOWW "OL OVW OD TMAH MLO" "OG -O "Ww" o~ 
SOGCGSGCOCOOSGOOOOGOOOOGOOSOOSOOSOSOSSOSOOOSOSGOOOGOOOOOSOOSOOOOOOOOOOOOOOOOO 
SOOCOCSCOSOCOSOCOSCSOOCOCOCOOOCOOOSOOOOSCOOOOOOOOCOOOOOOOOOOOOOOOOOOOOoOoOO 


SCoLlonorno 


Wnwnsnror 


PUSHAL 
CALLS 


MOV 
PUSHAL 


#12 

a QUERY 
#1, QUERY 
436 ¥ 


SDATA+16 

#2 LIB$SCOPY_DXDX 
#1 STRSPREE1_DX 
#15) 25(R12) 

(R12) 
#0 

#1, INSERT_IN_ORDER 
10$ 


#0 
#0 


#0 
#15 
#0 
63 f [NO.0BJECT 


#0.DELETE_CURRENT 
#0,MAKE_ SCRATCH 
DEF _SCRATCH,RO 


(RO 
#14,25(RO) 


#1, INSERT_IN_ORDER 
#0,MAKE_ SCRATCH 
“SCRATCH,RO 
14725(RO) 


#-167,30(RO) 
#28, 35 (RO) 


#1, INSERT_IN_ORDER 
#0,MAKE SCRATCH 
DEF _SCRATCH,RO 


R 
#8 ,.25(RO) 

#1, INSERT_IN_ORDER 
#0 .BDATAS 17$ 

#0. MAKE SCRATCH 
Def SCRATCH RI2 
(R12) 


oy 
#2,LIBSSCOPY_DXDxX 
ATA+ 


; 1381, 


PPLE 
WAIWNN 
MANYVIWO 


ViIag® MmOOR—O 


ee ee ee ee ee ee 
Soy WINS Pw 


PPP LPL LHL S 


Conn Oo 
ViOu" OO 


pr1882 93:48:92 DISKBVMSAASTER:CEDF. SRCJEDFDESIGN.PAS:¥° (SB) 


Wr 


nw 
eoo- 


EDFDESIGN 1 
viteett Generated Code 


000000006 EF 1 Fe 143 CALLS #1, INSERT_IN_ORDER | 
Ov 11 OO14A BRB 20$ 
eneees F OF 14C 17$ PUSHAL # : 1501. 
F F 1 PUSHAB #94 
0000000 F pF 1 PUSHAL 40 | 
F 9F 00158 PUSHAB # 
01 BF 9F 001 F PUSHAB #1 
000000006 FF 5 re 16 CALLS #5,FIND_OBJECT | 
Ov 0 £9 00168 BLBC RO. 20S | 
00000006 EF 00 FB O16 CALLS #0,DELETE_CURRENT : 1503) 
00000006 FF 0 FB 00172 208 CALLS #0,MAKE_ SCRATCH + 1507 
0 000000006 EF p 17 MOVL DEF SCRATCH, RO : 1509 
19 AO 8 \? MOVB #8,25(R0) 3 1218 
1E AQ 62 F 90 00184 MOVE #98, 30(RO) + 151 
04 02 000001086 FF CF 00189 CASEL  IDATA+264,#2,84 + 1519 
00 Ov 0191 <DISPL 22$ 
000Vv 0193 “DISPL 24$ | 
9000v 0195 SDISPL 23$ 
000V 0197 “DISPL 22$ 
0000v 00199 *DISPL 2s 
00Ov 11 0019B BRB $ 
23 A 1F D0 00190 22$:  MOVL #31,35(RO) : 1523 
00v 11 OO1A1 BRB 26$ 
23 A 1D DO OO1A3 238: MOVL #29,35(R0) 3 1526 
OOv 11 O01A7 BRB 26 
23 A 1E DO OO1A9 24$: MOVL #30,35(RO) : 1525 
OOv 11 OO1AD BRB 26$ 
OO1AF 258: 
00000000 8F ODF OOIAF 26$:  PUSHAL #0 : 1533 
000000006 EF 01 FB 001B5 CALLS #1, INSERT_IN_ORDER 
000000006 EF 00 FB 00186 CALLS #0.MAKE SCRATCH : 1537 
0 000000006 EF 00 ooi¢ MOVL DEF _SCRATCH,RO : 1539 
60 94 OOICA CLRB so (R : 1546 
19 AO Oc 90 001CC MOVB =: #12, 25 (RO) : 1547 
00000000 8F DF 00100 PUSHAL # : 1549 
000000006 FF 01 FB 00106 CALLS #1, INSERT _IN_ORDER 
4 000001086 EF 01 90100 CMPL DATA+264 784 : 1553 
Ov 12 001E4 BNEQ 
000000006 EF 0 F QO1E6 CALLS #0,MAKE_SCRATCH : 1560 
0 000000006 EF 00 OO1ED MOVL DEE CRATCH,RO : 1562 
19 A C 90 001F4 MOVE = #12725(RO > 1566 
1E OA 88 8F 90 001F8 MOVB #10 5 30(R9) + 1567 
2B «AO 900000116 F 90 OO1FD MOVB  BDATA+17,43(RO) : 1568 
000000 8F OF 5 PUSHAL # : 1570 
000000006 EF 1 FB CALLS #1, INSERT_IN_ORDER 
000000006 EF 0 F 12 308 CALLS #0.MAKE SCRATCH : 1579 
0 000000006 EF p 1 MOVL ef ERAT CHRO : 1581 
19 A C 0 MOVB of (RO) : 1585 
3 Ad 89 ra. 8 4 MOVB = #11 ;306RQ) : 1586 
23. =A 990000 c6 ro 8 9 MOVL  IDATA#156, 35(RO) : 1587 | 
00000 FOF 1 PUSHAL # ; 1589 | 
000000006 FF S 7 CALLS #1 INSERT IN_ORDER | 
4 000001086 a p cs CPL ATA+264784 ; 1593 
03 000001086 FF oj 4 CMPL DATA+264 43 | 
Ov é af BNEO | 
OF 000001006 EF 01 00250 33$ CMPL = IDATA+256,415 


11 
EDF DESIGN Ipege -1984 01:10:30 VAX-11 Pascal V2.4-277 Page 101. 
the tit Generated Code ~3007 138% 94:40:30 TER SUNGHASTER FEDF SRC JEDF DESIGN. PAST 3} 
Vv 12 7 36$ 
000000006 EF 88 F rs CALLS 28 MAKE_SCRATCH : 16 
000000006 EF 69 MOVL per ERATCH, RO ; 1808 
19 A C 6 MOVE é (RO) : 161g 
1 A 8A BF 6 MOVB sof ,30(RQ) + 161 
27, OA 900000A06 F OD OVL  IDATA+160,39(RO) + 1614 
000000 F DF 0027 PUSHAL + 1616 
000000006 EF 1 FB 43 CALLS #1, INSERT_IN_ORDER 
000000006 FF 0 F 8 36$ CALLS MAKE_STRATCH : 1622 
0 000000006 EF p 0 MOVL  DEF_SCRATCH,RO : 16¢4 
19 A C 029 MOVE #12725(RO) + 1631 
1 Ad r. © 0 9 MOVB 3s = 11 5306RQ) : 1632 
23. OA 900001 G cf D 9C MOVL IDATA#256, 35(RO) + 163 
0000000 SF ODF O02A4 PUSHAL #0 + 1635 
000000006 EF 01 FB OO2AA CALLS #1, INSERT_IN_ORDER 
000000006 EF 00 FB 00 B1 CALLS #0,MAKE_STRATCH : 1642 
0 000000006 EF DO 00288 MOVL DEF SCRATCH + 1644 
19 AO C 90 002BF MOVE #1 (RO) + 1648 
1—E AO 8C 8F 90 00 C3 MOVB = #-116,3 (RQ) + 1649 
27 AO OOOOODESG EF 00 002C MOVL = IDATA#228, 39(RO) + 1650 
00000000 8F DF 00200 PUSHAL # + 1652 
000000006 EF 01 FB 99 06 CALLS #1, INSERT_IN_ORDER 
04 002DD ET : 1656 
3 Routine Size: 734 bytes, Routine Base: $CODE + 00002 | 
90000 CALC_ALLOC: : 1701) 
0000 00000 -WORD *M<> 
5¢ 04 BC D0 00002 MOVL  @4(R12),RECORD_TOT 
5¢ 5C 4E 00006 CVTLF RECORD TOT, BYTES REAL : 1714 
50 00000006 FF 4E 00009 CVTLF IDATA+T92,N S_REAL + 1715 
08 0 51 0001 CMPF § NUMRECS_REAL,#*F 1-0 : 1717 
00v 18 0001 BGEQ = a$ 
50 90004080 8F 50 0001 MOVF  #*F1.0,NUMRECS_REAL : 1719 
5c 00004500 8F 46 9001¢ 2$: DIVF2 #*F512.0,BYTES REAL : 1721 
51 6B284F6E- 8F 50 47 000 DIVF3 NUMRECS REAL,#"F1.0E+09,R1 + 1723 
51 5c 3=— 511 00028 CMPF —s- RATIO, RT 
06v 15 000 : BLEQ 4 
51 3B9AC9FF 8F 00 000 MOVL  #999999999, CALC_ALLOC : 1725 
Ov 1 900 7 BRB $ 
50 C 44 00039 4$: MULF2 RATIO,NUMRECS_REAL : 1729 
51 50 4B 9003¢ CVTRFL NUMRECS REAL,CALC_ALLOC 
50 51 00 OO03F 58: MOVL  CALC_ALCOC,RO ; 1731 
04 00042 RET 
| 
3; Routine Size: 67 bytes, Routine Base: SCODE + OOFEO 
0000 00000 SEQ_DEF:.WORD “M<> : 1778 
5 0% C 900 SUBL2 #4,SP 
QOOO00E8G EF OD MOVL $IDATA+232,RECORD_TOT : 1791 
00v000000006 FF E1 0000C BBC #0, VARIABLE RECORDS, 2$ : 1793 
0 C60 14 ADDL2 #2.RECORD TOT : 179 
00v00000011G EF E 17 28: BBS #0. BDATA+T7,4$ : 1800 
1 5 1F CVTILF RECORD 191 1 > 180 
51 00004500 F 1 4 2 DIVES R1,#°F512.0, RECORD_REAL 
1 1 4A OOO2A cVTFL RECORD_REAL RECORD INT 1809 
50 00000200 &F 1 C7 0002D DIVL3 RECORD-INT,#512,RECORD_TOT ahs 


ooo 


| 
. 02. 
voe-000™ Generated Code if: sep-19 9}: 33: 33 DL eKSVMSMASTERS CEDF SR SRCJEDFDESIGN.PAS; grt ( 3) 


FC OAD 50 2 5 4$: MOVL RECORD. TOT,=4(FP) ; 1814. 
FC AD OOF ; PUSHAB = 
OFEO CF Q1 FB ; CALLS #1,CALC_ALLOC 
C ® MOVL i -ALLOC 
000000006 00 =F 4 CALLS MAKE E SSCRATCH : 1819 
1p spemoooe ga Sagem ie 
16 OA 48 BF 9 3 MOVB #72, 30(RO) : 1869 
§ 00 C p00 00058 MOVL ALL L6C,39(RO) + 1830 
00000000 BF OF 09st PUSHAL # + 1832 
000000006 EF 1 FB 00065 CALLS #1,INSERT_IN_ORDER 
000000006 FF 0 F 0066 CALLS #0.MAKE SCRATCH : 1836 
vo $8 000000006 FF BG SOUS OWL” DEF SCRATCH. RO : 188 
1E AO 49 BF 90 O07E Ova #73, 30(RO) + 184 
00000000 8F DF 0008 PUSHAL #0 : 184 
000000006 EF 01 FB 00089 ALLS a, INSERT IN, ORDER 
000000006 EF 00 FB 9090 CALLS AKE_STRATC : 1852 
19 ag 0000006 Fe Bd 0009 MOVE ete iced tibet 
1E Ad 54 gf 20 O0ks MOVB : 1862 
27 — ad 5C OA C O00A DIVL3 10, ALLoe.  9(RO) > 186 
pte ‘ Pe SooRS CALS: @ a. INSERT_IN_ORDER pew: 
ee . be 00089 RET " : 1869 
; Routine Size: 186 bytes, Routine Base: SCODE + 01023 | 
1 R F:.. WORD Pa tanned : 1916.) 
s og O25 BRBEE RELOET: tone nz 
000000006 _ EF viene 6 Ha 0900 sity #i-0 QUERY ee 
5C OOOO00ESG EF 61 rf 8012 ADDL a, “1DATA‘226 RECORD_TOT : 1937 
00v000000006 EF 00 El 0001 BBC " ARIABLE A RECORDS 73$ : 1939 
Poe s) Cae aes £3 
- 01 52 Dt 000 } cmPL ite + 1947 
52 ih 0 00036 MOVL .B 5 1949 
50 50 90 0 m, 0039 5$: EMUL i) a0 BUCKET TOT,RO ; 1951 | 
50 50 0 00000200 eP ’ 0055 EDIV #512,R0,R0,RO | 
Ov 1 0049 BGEQ 6 6$ 
50 00000200 oP ‘ 048 hi ADDL2 #512,R0 | 
ov 1 6 , i BEQL = BS | 
Ds 00 26 INCL | BUCKET : 1953. 
0000003F i DF 005 ay PUSHAL > 195 
FC OAD 2 D0 0005 MOVL BUCKET, -4(FP) | 
FC OAD oF ; PUSHAB =4(FP) | 
000000806 EF 9F PUSHAB IDATA+128 
000000006 EF ; f ; CALLS at FACTOR | 
7 MULL3 #512,BUCKET,RO > 1958 | 
" i ener: ; eg 0070 Mutts (RecoMb tor Ae | 
1 D 8 CMPL 


RECS_PER_BUCKET,#1 ; end 
| 


oe 
1 
EDF DESIGN Ig-Se -1984 0.10: VAX=-11 Pascal V2.4-277 Page 103 
the tts Generated Code = ep-19 4 95 30;86 TEKSUNGHASTER FEDF-GRCJEDFDESIGN.PAS.Y 483 | 
9 TREE RSE? thee nen auc ee 
5C 000000C06 FF 0 Dg 10$:  DIVL3 RECS _PER BUCKET, IDATA+192,NUM_BUCKETS + 1964 | 
1 C 01 0009 CMPL NUM_BUCKETS ,#1 3 1966 
5¢ - 8 809 Sete } a BUCKETS 1968 
53 000000C0G Ef 09 Bh 0098 12$ EMUL FORO TRATAG192,R3 : 1998 
53 3 4: 004i EDIV RECS_PER_BUCKET.R3,R3,R3 
D he TSTL = 
Ov 18 OOOA BGEG =: 13 
53 9 CO OOOAA ADDL2 RECS_PER_BUCKET,R3 
p OAD 138:  TSTL R 
OV AF BEQL 
¢ D6 00081 INCL. NUM BUCKETS : 1972 
5¢ C4 00085 15$ MULL2 BUCRET NUM BUCKETS : 1977 
5C 000000806 FF CO 00086 ADDL2 IDATA+128,RNUM BUCKETS 
000000006 EF 0 FB 000BD CALLS #0,MAKE SCRATCH : 1982 
50 000000006 Fr D0 b00¢4 MOVL DEF CRATCH,RO + 1984 
19 AO 8 90 000CB MOVB 25(RO) : 1991 
1E AO 48 8F 90 O00CF MOVB #72, 30(RO) : 1992 
27 — A 5¢ 0 00004 MOVL ALLOC, 39(RO) + 1993 
00000000 8F DF 000D8 PUSHAL : 1995 
000000006 EF 01 FB OO0DE CALLS #1, INSERT_IN_ORDER 
000000006 EF 00 FB OO0E CALLS #0,MAKE SCRATCH : 1999 
0 000000006 EF 00 O00EC MOVL DEF SCRATCH + 2001 
19 AO 08 90 000F3 MOVB #8,25(RO) : 2008 
1E AO 49 BF 90 000F7 MOVB #73,30(RO) : 2009 
00000000 8F ODF O00FC PUSHAL #0 : 2011 
000000006 EF 01 FB 00102 CALLS #1,INSERT_IN_ORDER 
000000006 EF 00 FB 00109 CALLS #0.MAKE SCRATCH ; 015 
0 000000006 EF 00 00110 MOVL DEF SCRATCH. RO + 2017 
19 Ad oe 90 oor? MOVB #8,25(RO) : 2024 
1E AO 4A 8F 90 0011B MOVE #74, 30(RO) + 2025 
27, — a 52. +0 90120 MOVL BUCKET ,39(RO) + 2026 
00000000 BF DF 00124 PUSHAL # + 2028 
000000006 EF 01 FB OO12A CALLS #1, INSERT_IN_ORDER 
000000006 EF 00 FB 00131 CALLS #0,MAKE SCRATCH : 2032 
3 000000006 EF DO 00138 MOVL DEF SCRATCH, 3 > 2034 
19 A3 8 90 0013F MOVE 4#8,25(R3) + 2041 
1E Ad 54 BF 90 00143 MOVE #84, 30(R3) ; g04¢ 
SB9ACSFF «6 BFS CsC#OF 00148 PUSHAL #999999999 + 204 
FC AD 5C 04 C7 ard DIvL3 #4, ALLOC,-4(FP) 
FC AD 9F 0015 PUSHAB =4(FP 
F8 AD 52 po 91 6 MOVL BUCKET, -8(FP) 
F8 a8 fF 15A PUSHAB -8(FP) 
000000006 EF 03 FB 0015D CALLS #3,MAX_FACTOR 
27, — AS 30 DO 00164 MOVL RO, 59(R3) 
00000000 8F ODF 00168 PUSHAL : 2048 
000000006 EF oi FB O16E CALLS #1, INSERT_IN_ORDER 
000000006 EF 0 FB 001 CALLS #0.MAKE SCRATCH : 2052 
0 000000006 EF p 17 MOVL DEF_SCRATCH,RO > 2054 
19 A 8 1 MOVE #8,25(RO) : 2061 
IE A 5 F 90 001 MOVB = #92 0(R0) ; 06¢ 
27 — A 999900¢ G EF 00 0018¢ MOVL  IDATA+192,39(RO) : 206 
000000 F DF 00194 PUSHAL : 2065 
000000006 EF 1 FB OO19A CALLS #1, INSERT_IN_ORDER 
04 001A1 RET > 2069 
| 


Le 


; Routine Size: 418 bytes, 


Generated Code 


Routine Base: $CODE + 010DD 


000000006 
000000006 


000000006 
000000006 


000000006 
000000006 


19 

1E 

27 
000000006 


0658 
000000006 
000000006 


04ED 


000000006 
000000006 


3 04 
05 000001186 Fr 
00 000001186 


, 00000028 


00000000GE 


“sn 


00000000GE 


00 
00000030 8F 
EF 01 
00 
00000022 8F 
EF 01 
00 
EF 00 
00 
EF 88 
EF 0 
50 00000000G_ EF 
AO 0c 
AO 8C_ BF 
AO OOOO00ESG EF 
00000000 =8F 
EF 01 
00 
CF 0 
EF 
00000025 8 
EF 4 
5C 
4 
4 


0000000D 
0 008 0000 
1 00000000 


0 
F 
2 
F 
F 


5 
5 
5 
5 


ag 


5 
P] 
1 
0000001C 


MSW 


56 


Wo 


oooo 


~ 
wn 


< 
yé 
ad 


< 
oa 
wn 


< < 
Ss SOOOCSCOCGCOOOCOOCOOCOSeSoe 
co 
wn 


PFN DP MOND VPI OND OOP ™ ONS 9D LMA 9 PD MOA MO HOM VN MOMIOM OS OOMOvwooo 


SOOoooooooooooooooooooooooooo 
so 
bad 


<= 
COOOCSCCOOOoOoOoooO 


lofol~) 


coVcoVcooo TO NOON MTOCVCOTOO™T —"OT O09 NTT SS THOS NO 
SCOLLOOWD DW "OOWEFSOLO"OF —T"OCOCOTD -O@-O7-O7-wn— 


Sooooooo 


MwMMMMoOO 


4 01:10:30 VAX-11 Pascal V2.4-277 P 104 
4 94:39:30 DL KSUMSMASTER  FEDF-SRCJEDFDESIGN.PAS TY’ (hos 


AM<R2,R3,R4,R5,R6,R7> 
44,5 

IDATA+280, #5 
“‘Pewlennnaeets 


4 
6 
8 
1 
8 
¢ 
1 
8 
& 
1 
# 
a 
1 
‘d 


ASK_KEY_SIZE 
,»ASK_MEAN_RECORD_SIZE 
;MAKE_SCRATCH 
F_SCRATCH,RO 

2725(RO) 

-116,30(RO) 

IDATA+228, 39(RO) 

#1, INSERT_IN_ORDER 

13§ 


#0.,NATURAL_DEPTH 
RO,BUCKET_DEFAULT 


#1, QUERY 
RO 


$ 
$ 
$ 
$ 
1 
4 
1 
3 
4 
1 
3 
3 
1 
3 
0 
#0 
0 
E 
1 


RO, 1 
INIT_PRIMARY BuCKeTSC1} 
A DED_PRIMARY_BUCKETSLI) 


RO, 
#0,PROLOGUE3_ DEPTH 
i CHOSEN_DEPTH 


#1, QUERY 
wis 

#1, QUERY 

INIT NUMBER BUCKETS, INIT _DATA_ALLOC 
ADDEB_NUMBER BUCKETS ,ADDED_DATA_ALLOC 
INIT INDEX ACLOC 

ADDED_INDER_ALLOC 


#1,R 
CHOSEN_DEPTH,R6 


—— | 


EDF OF SIGN 
v04- Generated Code 


56 


munis 
QALEWO 


000000886 


000000046 


Vw wm 
Coon WUM 


000000046 


55 
56 


vw wm WM 
- Vw oOo 


56 
54 


50 


53 
54 3B9AC9FF of 000000946 
56 3B9AC9FF 


50 000000946 
54 


54 SB9ACIFF 
4 53 000000946 
00000000G_ EF 
00000000 


sen 


56 


5 


000000006 


<< 


a eo ee 


MUM MMVI MOMMA SE UVnIoouw 


w 
of-ou1o— Oo 
i < < <= < <_ < 


<= 


<= 


COOOOCOOOMODOvVIMOWOVIMUMNOVMOVIMOMOUMOVIOWV! 
< 


VIR HHAHARNONOVMOWNONMOONLSOL—0O—f£O00 


1 


Woe 


WBnoma>—~ 


WAS SMO YS SMO" OOOO n— 


ODL SOLS SO -9OOOoo- "9 


o 
Ww 


OOoooooooooooooooooooooocoo 


pe pew fale lo lo lo leo lo loo lololelelololeleolololelolololo) 


SBP BEBE PWIND SS 
MOD OOM OFS SPWOMac 


oOOooo°oo 
a ee ee a a ed ed ee a ae ed a a ee ce ae a a a a a ad a a a od od od ed od oD DDD 


OM OO 001 NIOMMO UNM SS nn Fann 
ODDWD S FS OOOO WOWON NOOO OOOUMIUIUNIUIUIN 


NOOST OTE $9 $9 NN $9 9 N09 | 9 NS 9 9 SN | CO 9 So 
SOSOSOOOOSOOOOOOOOOOOOOOOOO 
Ooooooooooooooooooooooooooooooo 

OOS FS FD LO PW MO LO DOM ONVMNVOMO S&S NVINIO 


208: 


3$: 


32$: 


388: 


i) 
0 VAX-11 Pascal V2.4-277 Pa 5 | 
6 DI SKSVMSMASTER® EDF GRCJEDFDESIGN.PASST (48) 
RS,R6 
i 
i I | 
INI T_NUMBER BuckeTsC1) INIT_INDEX_ALLOC ; 3230 | 
ADDED _NUMBER_BUCKETS 15,ADDED_INDEX_ALLOC : 231 
18$ 
ARSTAC136 ; 2238 
INIT_DATA_ALLOC,R5 : 2242 
RDATA+4,R5 
R945 
INIT_INDEX_ALLOC,R6 + 2244 
RDATA+4,R6 
aeons 
USED_DATA_BUCKETS, INIT_DATA_ALLOC,- : 2246! 
UNUSED DATA BUCKETS 
USED INDEX BUCKETS, INIT_INDEX_ALLOC,- : 2247 
UNUSED_ INDEX BUCKETS 
ADDED _BATA_ACLOC ,UNUSED_DATA_BUCKETS : 2249 
UNUSED_DATA_BUCKETS ,ADDED_DATA_ALLOC 3 2251 
ADDED_DATA_ALLOC : 2255 
ADDED~ INDER_ALLOC ,UNUSED_INDEX_BUCKETS + 2257 
UNUSED_ INDEX BUCKETS , ADDED INDEX, ALLOC : 2259 
ADDED_INDEX_ALLOC : 2263 
ADDED_DATA_ALLOC + 2265 
ADDED_DATA_ALLOC, INIT_DATA_ALLOC : 2267 
ADDED-INDER_ALLOC + 2269 
ADDED_INDEX_ALLOC, INIT_INDEX_ALLOC : 2271 
IDATAT1 48.4999 95659 -RE : + 2280 
NIT DATA_ALLOC,R4 
#999999999,, DATA_ALLOC : 2282 
IDATA+148, INIT_DATA_ALLOC ,DATA_ALLOC : 2286 
NIT_INDEX_ALLOC,R4 : 2288 
#999999999,, INDEX_ALLOC : 2291 
IDATA+148, INIT_INDEX_ALLOC, INDEX_ALLOC 3 2295 | 
#0,POINT_AT_DEFINITION > 2301 | 
#0 3 03 | 
| 
| 


# 
6 
a 
a 
#>,F IND_OBJECT 


| 
| 


12 
EDFDESIGN ig- Sep-1984 0: ; VAX-11 Pascal V 
vithetit Generated Code =tep- 198¢ oR: i +30 DISK RE SUMSH TER: Vege ch SRCJEDFDESIGN.PAS; at bh 388 
| 
00v 50 €9 001C7 BLBC 
53 000000006 FF 19 ci O1CA ADDL3 R94°08 DEF _CURRENT ,R3 ; : 2307) 
8 63 100102 408: CMPB (R35,a8 + 2309) 
Ov 13 01D BNEQ 
50 600000006 EF 00 001D MOVL bE CURRENT ,RO 
50 1— AO 9A 001D MOVZBL 30(RO),RO 
00000098 = &F 50 D1 OO1E CMPL 152 
Q v 1E OO1€ BGEQU 
OOVFFFFECA2 EF 0 €1 OieB BBC RO. AAI 43$ | 
000000006 EF 00 FB OO1F CALLS #0,DELETE_CURRENT ; 2316) 
Ov 11 OO1FA BRB | 
000000006 EF 90 FB oie 43$: CALLS #0, INCR CURRENT : 2320) 
0 94 00203 44$: CLRB | 
000000006 EF 05 00205 TSTL DEF_CURRENT 
O0v 12 00208 BNEQ 46$ 
50 96 00200 INCB~—s_ RO | 
51 94 OO2OF 468 CLRB.sR1 | 
53 000000606 EF 19 C1 00211 ADDL3 #25,DEF_CURRENT,R3 | 
08 63 91 00219 CMPB = (R35,,#8 | 
0O0v 13 0021C BEQL 48$ 
51 96 O021E INCB.sR1 | 
51 50 «88 90320 48$ BISB2 RO,R1 
AC 51 «£9 00223 BLBC R1,40$ | 
00000084G_ EF 7F soaSF 07 00 ED 00226 50$ CMPZV #0. #7, M°X7F, IDATA+132 : 2329) 
OOv 15 992 0 BLEQ 52$ 
53 000000846 _ EF 02 ¢5 00232 MULL3 #2,IDATA+132,DATA_AREA_NUMBER : 2331 
OOv 11 0023A BRB 53$ 
53 FE 8F 9A 0023C 528: MOVZBL #254,DATA_AREA_NUMBER : 2335 
5 53 01 C1 00240 53$: ADDL #1,DATA_ AREA_NOMBER, INDEX_AREA_NUMBER 3: 2337 
000000006 EF 00 =«6=FB tes CALLS #0 MAKE SCRATCH 3 2342 
50 000000006 EF 00 00248 MOVL DEF_SCRATCH,RO + 2344 
60 94 00252 CLRB =. (ROY > 2351 
19 a0 05 90 00254 MOVB =: #5,,25 ; 333¢ 
1A AO 5300 00898 OVL  DATA_AREA_NUMBER, 26(RO) > 235 
00000000 BF ODF:«0025C PUSHAL #0 : 2355 
000000006 _ EF 01 FB 00262 CALLS #1,INSERT_IN_ORDER 
00000084G_ EF 7F F 07 00 ED O82 CMP2V -#0.#7,#*X7F , IDATA+132 : 2362 
0O0v 15 00273 BLEQ 568 
SC 4 00275 CLRL _ TEMP_ALLOC > 2364 
00v 11 00277 BRB 60$ ~ 
00000000 af DF 00279 56$:  PUSHAL #0 : 2366 
1B 8F 9F O027F PUSHAB #27 
QOOOOOFE 8F ODF 00282 PUSHAL #254 
05 at OF 9 88 PUSHAB  # 
F 9F 00288 PUSHAB #1 
000000006 _ EF 05 FB 0 BF CALLS #5, FIND. OBJECT 
OV 0 €9 0029 BLBC ~=—_—«RO, 58S 
0 000000996 EF 00 6 98 MOVL ay CURRENT RO 3 2368 | 
SC AO D0 0029F MOVL (RO), TEMP. ALLOC 
Ov 11 0 A BRB | 
C D4 AS 58$: CLRL Teh LOC 3 2 a | 
000000006 ef 00 FB OO2A7 60$: CALLS *# RAKE SCRATCH ; 5 74 
0 000000006 EF »D AE MOVL DEF SCRA »RO : 2376 
19 A ; 9 B MOVB : 2383 
1A OA p B9 MOVL Data ARPR NUMBER, 26(RO) + 2384 
1E OA 18 9 BD MOVE #27 : 2385 
56 ae C1 > 2387 


ADDL2 TEMP ~ALLOC ,DATA_ALLOC : | 


El 
vi 


Et he 


00000084G_ EF 


FC 


7F 


AD 


8F 


Generated Code 


27 


oo 
aoa 


aa 


——— OO Ne OO le = OO 
aa 


mr>o co wmPro coo Mm>ro 


000000006 
27 


000000006 
000000006 


19 
JA 


000000006 
000000006 


000000006 


—— 
ro 


E 
fF 
0 
AQ 
AO 
AO 
EF 


0 
AQ 
AO 
AQ 
AO 


EF 
EF 

7 
A? 
A? 
A7 


nn 


uw 
oa 


omm >r wm Ym 
na7m7 COO OMT QT 


F 
0 
0 
C 


50 
AO 
AO 


Oov 
5 
5 


AO 
, 00000000 


000000006 


00000000 


000000006 


000000006 


3B9ACIFF 
FC 

000000946 

00000000 


000000006 


00600000 


o0000099 
eocooert 
1 


000000006 
e7 


000000006 


VIO WDOCIHODOSMISOOOWON1OSMSODON1OM FS OHOMMNOM OOM $$ NOMOOCO—MOmMooouwn 


worm 


WANS &NOWIMNO BM MOINS MOWUI TOS TO 


05 


OOO VOI NAA RNOMOOO— MUM "Oo "O 


F 
5 


<_< 


Vv 


1 


COOoooooooooooooooooooo 


OOCCOCCOCOCOOCOOOOOOOOOOCOOO 
OOM LMOM SPWOMDAIWOUVUNOL NGO 


S 


IWWINNIN AA AANWNNAA AANA AAW 
DPS YS FS OOWOOWO SI NINA AO & & 


Sooooceoo 
WO DONIO"OU "0— S FOOWOTU 


SOOO f (OOO VBA LN DD M"OOLOVD "ON 2BVU"OOOCOWW ™OOCOCOCOMW "COCCOTM™"O 


SQOoooooooooooooooooooooooooo 


9 O99 —TGIM"OOI O09 $9 S$ MBMNODOVOI MOO NOONVCOVOIT MOO OVC OU MO OCOUO TO 
COOOOOCOOOOSOOSOCOSOSOSOCCOCCSCOOOOOOOOOOOCOOoO 


hat=t-t-t—otetetet tt 


SND OVWIOM OM MOO 


“vw, 


oa 


NO 


=o 
PA 


se™ 


~ 
wn 


p=1986 $5346: 


3 VAX-11 Pascal V 


DISKSVMSMASTER: 
DATA_ALLOC ,39(RO) 


#1, INSERT IN_ORDER 
#0-M SCRATCH 
+t SCRATCH, AO 


) 
af AREA_NUMBER, 26 (RO) 
8,30(ROY 


( 
DATA_AREA_NUMBER, 26(RO) 
#29,30(ROY 
IDATA+148, 39(RO) 


‘I. INSERT_IN_ORDER 
#0,MAKE_STRATCH 
DEF SCRA Fen R? 
pata AREA_NUMBER, 26(R7) 
#32,30(R7) 
4999999999 

4,R6,-4(FP) 
ty FPS 
IDATA+148 
#3,MAX_FACTOR 
RO, 39(R7) 
#1, INSERT_IN_ORDER 
#O;MAKE_S SCRATCH 
DEF SCRATCH, RO 
#5,25(RO) 
INDEX, AREA_NUMBER , 26(RO) 
#1, INSERT IN ORDER 
#0.MA A 
#9 Ok fe oor IDATA#132 
TEMP_ALLOC 
71$ 
f 
#255 
as 
h. F ND_OBJECT 
Hah TEMP’ Loc 


LLOC 
DEF St CRATCH, RO 
fret “AREA _NUMBER , 26 (RO) 


‘fébr csp SRCIJEDFDESIGN.PAS; a te 58), 


Sete ee ee 


] 
| 


107 | 


SRP LPL PPL PU 
FUN MRNMOPONY | | S|) =OOOON0N 
COCOno@ F£NM—OCOONMO Cfwrvw oO 


MRIPIMINININ = NMMNMNMNIPONM = PoMoNMonoror 


<m 


. 


D 12 hae 
16-Sep-1984 :10:30 VAX=11 Pascal V 4-277 Pa e | 
2 hee 3 Generated Code saat Ti 94: 40:30 DL SKSUMSMASTER FEDF SRC IEDFDESIGN.PAS’Y = 
ae aan: S Ee ADDL2 TADEX ALLOC TEMP_ALLOC ; 3250, 
27 — AO sc OD FA MOVL §TEMP_ALLOC, $9(ROY | 
00000000 BF DF 003F5 PUSHAL 2 2492 | 
000000006 EF 1 FB 003F CALLS #1,INSERT_IN_ORDER 
000000006 EF 83 FB 004 CALLS #0.MAKE STRATCH : 2496 
4 000000006 EF hi MOVL DEF CRATCH,RO + 2498 
19 AO 5 3 0410 MOVE #5,25(RO) 3 2505 
1A AO 5 0 00414 MOVL INDEX AREA_NUMBER,26(RO) : 306 
0 1¢ 90 00418 MOVE  #28,30(RO) + 250 
“47 00000000 8F OF 0041 PUSHAL # + 2509 
000000006 EF 1 FB 004 CALLS #1,INSERT_IN_ORDER 
000000006 EF 80 FB 004 CALLS #0,MAKE SCRATCH : 2513 
5 000000006 EF 00 00430 MOVL DEF_SCRATCH,RO + 2515 
9 AO 5 90 00437 MOVB A 25 (RO) : 35¢@ 
ia AO 5 0 bod B MOVE INDEX a ; 523 
§ Ni 000000946 cr 30 09448 ROVE IDAFA+i4 »39(RO) 3325 
000000006 EF oerree 1 PB Space CALLS #1,INSERT_IN_ORDER 
00 FB 00458 CALLS #0,MAKE_STRATCH : 2531 
ere gf 000000006 EF 00 0045F wOVL DEF SCRATCH, RG ; 3933 
HH vi 92 30 tite MOVL INDEX AREA_NUMBER,26(R4) : 541 
1E AG 0 90 0046 MOV #32,30(R4) ; 3362 
3B9ACOFF gr DF 0047 PUSHAL #999999999 : 
A SC am boc? VL3.-#4,R12,-4(FP) 
foe i PP BiR hae TD, 
_— 65 PB bocae CALLS #3,MAX_FACTOR 
000000006 EF . 3.MAX EA | 
sala 00000000 ar 44 boco4 PUSHAL #0° : 2548 
01 FB 00497 CALLS #1,INSERT_IN_ORDER 
Soopoonos EF 0049 CALLS #0.MAKE SCRATCH : 2552 
pnonenres a 6B MOVL DEF_SCRATCH,RO > 2554 
en fo B? bocac CLRB = (RO ; > 2561 
084G EF DO O04AE MOVL  IDATA#132,26(RO) : 2562 
mer 80900086" Sr DF 00486 PUSHAL #0 > 2564 
000000006 EF " 01 FB 0048 CALLS #1. INSERT IN ORDER aes 
see spae 5 000000006 4 6 Deca MOVL DEF_SCRATCH,RO : 3370 
1A AO 000000846 EF DO aocot MOVE IDATAs 132 26 (RO) ; 3377 
25 AD 090900156 F 30 Bebe MOVE BDATA+21 .43(R0) 3579 | 
000000006 EF enoneee i a4 OCE CALLS #1, INSERT_IN_ORDER fen 
000000006 _ ‘EF 00 F bers CALLS #0.MAKE SCRATCH : 2585 
4 0000006 EF b0 O4FA MOVL DEF _SCRATCH,RO : $387 
1A A0 0000846 F p $309 MOVE IDATAs 132 26(RO) i 2396 
§ 00 ' 5 3 6 8 MOVE DATA_AREA_NUMBER, 39(RO) : 396 | 
0000G EF aqeenete ‘ a4 $18 CALLS #1, INSERT_IN_ORDER on | 
$00 000G EF 0 F 1F CALLS #0.MAKE SCRATCH : 3602 
—— : 000G EF D 6 MOVL DEF_SCRATCH,RO : 2604 
1A i3 noooo0ges cf p 2 MOVL IDATA+1 32 ,26(RO) a2, 
1E OA 9 &8F MOVE #121,30(R ; | 


12 
EDEDESION satel ig-Se0-1984 1:19 


27 A £88808 0RG F DO Q053A OVL 
0000000 F ODF bat§ PUSHAL 
SHESE ; Beh A 
5p 4 EF OD 0856 MOVL 
y BORO Bae ae 
ae ee 
00000000G_ EF 1 FB 0378 CALLS 
penne 000000846 er p HY Feit 
bov 1 it BNEQ 
Pe ee 
1€ AO 7B af 90 0059D MOVB 
4 Some CPB Bit 
00000000G EF 4 FB 00580 CALLS 
000000006 fF 0 FB 00587 CALLS 
0 000000006 EF 00 beers 83$ MOVL 
1A =AO 000000846 Hi DO 005C MOVL 
1€ Ad 7c F 90 005CD MOVB 
ao a 
000000006 EF 01 FB 005E0 CALLS 
a ng 5 000000006 er 50 OSE MOVE 
y BoE Se a 
25 AO 55 00 00602 MOVL 
00000000 8F DF 00606 PUSHAL 
00000000G_ EF 01 FB Bats CALLS 
eevee: 5 000000006 EF D0 DORIA MOVE 
1A = =AO 000000846 cr dO Bpes4 MOVL 
3 AO 7F F 90 00629 MOVB 
fd a 
00000000G_ EF 4 FB Beers CALLS 
000000006 ff 0 FB 0064 CALLS 
0 000000006 EF 00 Boggs MOVL 
yp BOON TB 
28 20 80008 o5° fr 9 Oss MOVB 
000000 F ODF ‘ve PUSHAL 
saa! G EF 1 4 oe¢ CALLS 
oor 3 ieee OR 
5 654 44 EF D0 006 ; MOVL 
y Bio TE ee 
27 20 44 94 9 ag F p00 00696 MOVL 
000000 F DF Q069E PUSHAL 
00000000G_ EF iy + en ts 
: D4 O06AD 90$: CLRL 


3 


VAX-11 Pascal V2. 
DISKSVMSMASTER:LE 


IN_ORDER 
STRATCH 


N_ORDER 
aTSn 


é 


~NITD— Wwerwt 
~ 
Do 
o 
~ 


BDATA+23,.43(RO) 
#1, INSERT_IN_ORDER 
KE_SCTR 


0;MA 
DEF _SCRATCH,RO 


ATCH 


IDATAs 132 26(RO) 


e R 
INDEX_AREA_NUMBER , 39(RO) 
INSERT 
MAKE 


# 
#1 


IN_ORDER 
R 


SCRATCH 


DEF _SCRATCH,RO 


#1 


#1 


IDATA+132 
27,30(R 
IDATA, 39(RO) 


e INSERT 
MAKE 


ggecr0) 


IN_ORDER 
R 


SCRATCH 


EF _SCRATCH,.RO 
PDATAS1 32 26(RO) 


#126,30 


(RO) 


BDATA+14,43(RO) 
#0 


#1, 
x B + 
#0 ,MAKE _SC 


is 


INSERT_IN_ ORDER 
DATA 19.908 
RATCH 


SCRATCH,R 
2 ihe 


) 
9(RO) 
INSERT_IN_ORDER 


4-277 page 
DF ..SRCJEDFDESIGN.PAS;1 ¢ 


POPIPOPIPININD — POPOPOPOPOTO: Os PU POPOPONoTr 


PIMPIPEPONIND = POMEOMEMOPONY s—_ PONENT 


am 


F 1 2 ' 
EDF DESIGN 16-Sep-1984 :10:30 VAX-11 Pascal V2.4-277 Page 110 
viteeit Generated Code g7300713 4 94:40:30 PE EKSUNSAASTER FEDF -SRCJEDF DESIGN. PAGS? By 
000000006 EF 53 DO OO6AF 91$ MOVL 3, SEGMENT_NUMBER 
rH 000000006 EF pe 6B6 MOVL § SEGMENT NUMBER,RO : 2756 
OOVOOOODO0NGEFS 0 €1 0068D BBC #0, SEGMENT WANTEDCRO],94$ 
Q00000000G EF 2 6C6 CALLS #0,MAKE SCRATCH 3 2760) 
900000 0G EF 00 006CD MOVL DEF _SCRATCH.R : 762 
1A OA 00846 EF p 604 MOVL IDATA+ 132 g6 (RO) + 37 
i€ 5 BF 60¢ MOVE #-123,30(RO) + 2770 
54 000000006 _ EF 00 06E1 MOVL § SEGMENT_NUMBER.R4 + 2771 
27 Ad SOO000GEF 44 DO 006E8 MOVL § SEGMENT“LENGTHER4J, 39(RO) 
1F a0 00000000G EF 00 006F1 MOVL SEGMENT NUMBER, 31 (RO) : 2772 
000000 8F ODF 006F9 PUSHAL # 774 
000000006 ff 1 Fe off CALLS #1, INSERT _IN_ORDER 
% 7 F 06 94$ AOBLEQ #7.R3,91$ 
000000006 ( 0 FB 70A 95$ CAL #0.MAKE SCRATCH ; 2782 | 
0 900000006 EF 00 00711 MOVL DEF_SCRATCH.R + 2784 
1A AO 000000846 EF D0 o718 MOVL = IDATA+132 g6(RO) : 2791 
1 80 8F 90 00720 MOVE  #-128,30(RO) : 279 
27 — A 55 D0 00725 MOVL INDEX. AREA_NUMBER, 39(RO) + 279 
00000000 8F DF 00729 PUSHAL #0 + 2795 
000000006 EF 01 FB O072F ALLS #1,INSERT_IN_ORDER 
00v00000006G_ ‘EF 00 €1 00736 ¢ #0. BDATA+6, 100$ : 2802 
000000006 EE 00 FB 00735 CALLS #0.MAKE SCRATCH + 2806 
5 000000006 EF 00 0074 OVL DEF SCRATCH, RS : 2808 
11. AS = -9F 0074C PUSHAB 17(R5) + 2812 
000000186 EF  9F OO74F PUSHAB SDATA+24 
000000006 EF 02 FB 00755 CALLS #2,LIBS$SCOPY_DXDx 
00000018G EF 9F 0075C PUSHAB SDATA+24 3 2813) 
000000006 EF 01 FB 00762 CALLS #1,STRSFREE1_Dx 
1A AS 000000846 EF DO 00769 MOVL IDATA+132, 26TR5) : 2815 
1E AS 81 8F 90 00771 VB = #127, 30(R5) + 2816 
00000000 8F DF 00776 PUSHAL # : 2818 
000000006 ‘EF 01 «=FB o077¢ CALLS #1, INSERT_IN_ORDER 
00Ov 11 0078 BRB 108$ 
00000000 8F DF 00785 100$: PUSHAL #0 > 2828. 
81 8F 9F 00788 PUSHAB #-127 
000000846 EF 9F 0078E PUSHAB IDATA+132 | 
0B 8F 9F 00794 PUSHAB #11 
01 8F 9F 00797 PUSHAB #1 
000000006 ‘EF 95 FB OO79A CALLS #5,FIND_OBJECT 
O0v 0 €9 007A1 BLBC = RO. | 
000000006 _ EF 00 Fe O7A4 CALLS @# DELETE CURRENT : 2830 
000000846 EF D5 007AB 103$: TSTL IDATA+13 + 2834 
00v 12 0781 BNEQ 
00v00000033G_ EF 99 E 0785 ¢ #0, VDATA+51,107$ 
000000006 ef FB 0078 CALLS MAKE SCRATCH > 2842 | 
0 900000006 EF 00 007C MOVL DEF _SCRATCH.RO : 844 
1A AO 000000846 cr DO 007C¢ MOVL IDATA*132, 26(RO) ; 2851 
3 A 84 8F 90 00701 MOVB oo leh 308 ) : 285 
27, A 9000008 86 F 00 00706 VL IDATA#248, 39(RO) > 285 
0000000 SF ODF O07DE PUSHAL # > 2855 | 
0000 9006 EF 1 FB O7Es CALLS #1, INSERT IN ORDER | 
00v00000013G «EF 00 E ZEB 107$: BS #0 BDATA+T9, 110 : 2861 | 
000000006 ef 0 F 7F CALLS #0.MAKE SCRATCH ; 865 | 
0 000000006 EF DO OO7FA MOVL DEF _SCRATCH.R : 86 | 
Ya A0 000000846 EF 1 MOVL = IDATA+132,26(RO) > 2874 
1 A 6 &8F 9 MOVE #-122,30(R0) > 2875 | 
27 Ad OOOOODOCCG EF DO OO080E MOVL _ IDATA#204, 39(RO) > 2876 


12 Lv core i 
18-Sep-1984 4 01:10: DLSKSUMSMASTER: PEDF -SRCIEDFDESIGN.PAS(Y (58). 
~ DISKSVMSMASTER: CEDF. 
ee 3 Na Generated Code =Sep-19084 13: 38: er : 2878 
een i ee CALLS” #1 ,INSERT_IN_ORDER | 
000000006 EF " rB ine ish -IN. + 2006 
be 113: ft NT_NUMBER | 
§ D0 00827 1118: MOVE RS, SEGME R ; 2890, 
oesmeent 000000006 if o i BBC ib aECneNt want EcR0, 1148 5 2896 
MAKE i 
(OvpOOOOOOOG EF 0 FB 00856 MOVE DEF SCRATCH RO ¢ $598 | 
0000000G EF 00 00 TA+132, 26(RO) ; 
A A doovougee EF pO OOBet MOVE 129. 50¢KO) ' : $908 
1€ MOVL SEGMENT _NUMB ; 
0 0 G_ EF OD 29 FIONER3],39(RO) 
a econ 2 
90000000" BF DF $Byy CALLS #1 INSERT IN_ORDER 
ae Oy FS OO87E 1148: AOBLEQ APRS ATS 9 
3 of 1158 LLS #0,MAKE SCRATCH * $993 
000000006 0 FB 0088 MOVL EF SCRATCH * 5955 
y OBR Ree Be eet Be 
SF 90 00898 MOVE : : 29 
2$ Ad 0000000¢6 FF BO 00890 move. oRyAST ROD ; 2380 
ni 00000000 §F DF GOBAg PHe ee Oe INSERT IN_ORDER 2942 
000000006 FF dooo008sG EF bs O08B6 TSTL.  IDATA*1327 ; 
MT Bh a's CALLS ROLASK GLOBAL WANTED z $906 
000000006 EF 09 FB O08BE Bere FO BDATAn Se 1208 : 5955 
oovgn00008 | EF 00 FB 008cD CALLS ROCRARE SCRATCH $953 
000000006 £5 00000006 EF 0 OOBDe MOVL bef SCRATCH : 2961 
19 20 — 68 90 00808 MOVB A Te gr. : $oc8 
25 00 900000886 er 30 tate MOVE IDATASi oa. 39(RO) ; soee 
wos OHA See Y sacenr- iene 
me ommnoge YB SSE szoes Flan, ge + 
coocooge §  9F 00901 PUSHAB HS | 
comets Ea 
Ot EPL Beane CALLS. #S<F IND OBJECT | 
000000006 FF 5 EB Bbai9 BLBC RO 1248 977 
Ov of Parts | BOCDELETE_CURRENT : 5986 
seccceess Ft 1 Cf O31 1268: ADDL #} “CHOSEN DEPTH, CHOSEN, DEPTH2 : 388 
5 ° 
03 000000006 EF OQ §1 00929 a 5 2992 | 
000000006 er F 00886 PUSHAB cnLF | 
be BP 00988 PUSHAB PASSFV OUTPUT 
oocooooes FF 7 CALLS, #3, PASSURITE. STRING 
000000006 3 FB 009 3 PUSHAB SHIFT 
000000006 FF 9F 0094 PUSHAB Si 
¢ BP Boeck PUSHAB PASSFV OUTPUT 
000000006 65 FB 90958 CALLS #3 PASSWRITE_ STRING 
seeseenss FFFFESG9 EF  9F OO95A PUSHAB 


essa 


Generated 
00000000G_ EF 


00000000G_ EF 


00000000G_ EF 


00000000G_ EF 


00000000G_ EF 
FC 


AD 
00000000G_ EF 


00000000G_ EF 


EF 
AD 


EF 


000000006 
FC 


000000006 


000000006 EF 
000000006 
000000006 
000000006 


EF 
EF 
EF 


; Routine Size: 2630 bytes, Rout ine 


00000000G_ EF 
000000006 


000000006 


Code 
000000006 
8 000846 
00000006 
FFFFES2F 
000000006 
000000006 
000000006 


FFFFES25 
000000006 


FC 


000000006 
FFFFEGF9 
000000006 


FC 


000000006 
FFFFE4DD 
000000006 
000000006 
0000001F 


Base: SCODE + 


00000003 


_, RSBBHE 


NOD "OVS ONOITI NOS NOT ONOVTOTNOVTONOVII "OO 


CODVOMOMOMOMUNIMNO FS MOM MOM FP MOMOMOomMomom—mMmommoocmn— 
oh et FAERIE Lo 
Fo ron wWnO "Ww LSSa row RO "OCW OVO *O "DW "OO D"OVCM"o 


OmMmMo"ONOOONOO 


H 12 
16-Sep-1984 :10 
g7ge77 198s 94:48 
9 PUSHL 
PUSHAB 
9 CALLS 
96 PUSHL 
971 PUSHL 
977 PUSHAB 
97D CALLS 
984 PUSHAB 
98a PUSHL 
9 PUSHAB 
99 CALLS 
99 PUSHAB 
99F PUSHL 
09A1 PUSHAB 
O09A7 CALLS 
O9AE PUSHAB 
00984 PUSHL 
0986 PUSHAB 
0098¢ CALLS 
09C OVL 
009¢7 PUSHAB 
O09CA CALLS 
00901 PUSHL 
00903 PUSHL 
00905 PUSHAB 
00908 CALLS 
09E2 PUSHAB 
0098 PUSHL 
OO9EA PUSHAB 
009F 0 CALLS 
09F7 VL 
09FB PUSHAB 
Oot E CALLS 
O0A0 PUSHL 
00407 PUSHL 
OA09 PUSHAB 
OOAOE CALLS 
OA16 PUSHAB 
OAIC PUSHL 
OAIE SH 
OA24 CALLS 
OA2B PUSHAB 
O31 ALLS 
OA38 PUSHAL 
ASE CALLS 
OAGS 127%: RET 


LINK_RESULTS: 
Ww RD 


ooo 


Soooooooo 


#16 
PASSFV_OUTPUT 
#3, PASSWRITE_STRING 


IDATA+132 
PASSFV_OUTPUT 

#3, PASSWRITE_INTEGER 
C. AAK 


#30 

PASSFV_OUTPUT 

#3 ,PASSWRITE_STRING 
CRLF SHIFT 


PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
C.AAL 


é 
PASSFV_OUTPUT 

#3, PASSWRITE_S 
C _DEPTH;- 


CHOSEN_DEPTH 
PASSFV_OUTPUT 
#3,PASSWRITE_INTEGER 
C.AAM 


#24 

PASSFV_OUTPUT 

#3, PASSWRITE_STRING 
CHOSEN_DEPTH2,-4(FP) 


o) M_LER 
CHOSEN_DEPTH2 


PASSFV- OUTPUT 
#3, PASSWRITE_INTEGER 
C.AAN 


#14 

PASSFV_OUTPUT 

#3, PASSWRITE_STRING 
PASSFV_OUTPUT 

#1 ,PASSWRITELN2 


#1, QUERY 


M<> 
4 ,EDFSRESET_SCROLL 
#1, CLEAR 

VISIBLE QUESTION 
#1, TAKE_DEFAULTS 


30 VAX-11 Pascal Ve,scer? Poge he 
: DISKSVMSMASTER:CEDF .SRCJEDFDESIGN.PAS;1 (38). 


12 
EDF DESIGN ig Sep-19 VAX-11 Pascal V Page 113) 
ithe tit Generated Code at 7 9}: }?: 32 DISKSVMSMASTER: Veebee CecIEDFDESIGN.PAS’? 38) 
000000846 a D5 9 Ist DATA+132 : 3068 
Op02 ss CF p FB 1 CALLS #0,NON_KEY_DEF : 3070) 
ff . FB 0 6 2$ CALLS #0, APPEND_BEF : 3075. 
000000006 EF 1 : ; MOVE #1,LINKED ; 3077: 
4 00 RET ; 3079 
; Routine Size: 67 bytes, Routine Base: SCODE + O1CC5 
MERGE_AREA : 3132) 
OFF itd _— . ORD  “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> | 
5 oe iC 9908 SUBL2  4#8,SP | 
06 BC OD MOVL 94 (R13), CURKEY | 
FC OAD 08 BC D0 00009 VL  a8(R12) -MAXKEY | 
54 € BC 00 0000 MOVL @12(R125,SRCDATA | 
55 10 BC D o913 MOVL §@16(R12).DSTDATA 
o6 14 BC D0 0001 MOVL  a@20(R12).SRCIDX 
5c 18 ¢ DO OOO1A MOVL  @24(R12) .DSTIDX 
57 0 DO OOO1E MOVL  #3,SOURCE DATA BUCKET : 3148 | 
B 4 00021 CLAL SOURCE _DATA_ALCOC : 3149) 
59 D4 00023 CLRL URCE~DATA-E : 3150) 
SA 03 DO 00025 MOVL 8 “SOURCE InbeX BUCKET : 3151 
8 04 00028 CLRL RCE_INDEX_ALCOC : 152 
534 909 A CLRL SOUR CET INDEX~ “ExT + 3153) 
100000 OBE OBE 00089 PUSHAS #29 3163 
F8 AD 54 00 itd VL SRCDATA,~B(FP) 
F8 AD 9F 00039 PUSHAB =8(FP) | 
05 er 9F 99 C PUSHAB | 
01 F 9F 0003F PUSHAB | 
000000006 EF 05 FB 00042 CALLS a, BIND OBJECT | 
oPYo00000006 er 60 oo04 BOVE 3165 
57 27, AO 00058 MOVL tae SOURCE OOATA _BUCKET ‘ | 
aa a a dnd 
F8 AD : 34 b0 09060 ROVE SRCDATA,-B (FP) | 
fe AD OOF Booes PUSHAB | 
01 8F 9F 0006A PUSHAB | 
000000006 FF 95 FB 9060 CALLS a. F ND_OBJECT 
50 000000906 EF 09 0077 MOVL i CURRENT : 3169 | 
+} : AO OD 007 MOVL (RO), coer’ _DATA_ALLOC | 
00000090 Hy DF 8 4$: PUSHAL 4 23171. 
F8 AD 4 po 5 88 VL SRCDATA, -8( FP) | 
F8 AD 9F OO0BF PUSHAB -8(FP) 
ie ieee 
000000006 i ; : oe CALLS i. f ND_OBJECT 
A v 3: 3173 5 
g annette | 2 ti p 8 3 ROVE i aGune eewtee _DATA_EXT 
00000000 i i 3H 68: PUSHAL . : 3175. 
FB AD DO 3 MOVL SRCIDX.-B(FP) 


J 12 
EDFDESIGN 16-Sep- VAX-11 Pascal V2.4 
- nerated Code ep 3 
Ok B84 Generated Cod g-3ee -§ -1382 9}: 42: 2 DISKSVMSMASTER: eee ch SRCIJEDFDESIGN. pase? © a} 
FB AD 9F OOOBA PUSHAB an | 
F 9F 000B PUSHAB 
82 F 3 cp PUSHAB 
F ¢ CALLS ‘ BIND. OBJECT 
000000006 EF 5 3. 
§ oo00000 G HY 3 6 & SbvL URRENT 3177 
A 27 AO BB 0D4 MOVL fa % SBUREES INDEX_BUCKET i | 
00000000 «BF DF 9008 8$: PUSHAL : 3179) 
1B 8F 9F OOODE PUSHAB | 
VL $ DX, -8(FP | 
FB OAD 6 00 000E1 RCIDX,-8(FP) 
FB AD 9F OO0ES PUSHAB =8(FP) 
3 BF 3 QOE8 PUSHAB  # 
1 BF 9F 000EB PUSHAB #1 
000000006 EF 05 FB QOOEE CALLS i, FIND OBJECT | 
v F LBC 
000000006 HY 3 bora SOvL ty CURREN 3181| 
B 27, — AD oS itd MOVL 39 (RO), SBURCES INDEX_ALLOC ‘ | 
00000000 8F ODF 00103 10$:  PUSHAL : 3183) 
20 Ly 9F 00109 PUSHAB #32 
FB OAD 6 pO 0010C¢ MOVL SRCIDX,-B(FP) 
FB AD OF 00110 PUSHAB “BCFP) 
05 «BF OF 0011 PUSHAB  # 
01 BF 9F 00116 PUSHAB #1 
000000006 EF 5 FB C0119 CALLS #5,FIND_OBJECT 
$Y 000000006 HY 4 $61 Q SovL RO 3185 
AO D A MOVL (RO), SBURCE INDEX_EXT 
AY 27, AO 00 001 pet RoDrs ‘ | 
55 54 D1 0012E 12$:  CMPL § SRCDATA,DSTDATA : 3191. 
OY Te HEIR) EME Eshnce pata aucee 5195 
5B OG 00135 CLRL SOURCE™ DATA ALLOC > 3196 
59 4 00137 CLRL § SOURCE~DATA~EXT : 3197 
SC 36 Dt 00139 14$: cnPL SRCIDX-DSTIDX : 3201 
SA 4 pote CLRL  SOURCE_INDEX_BUCKET : 3205 
38 D4 00140 CLRL  SOURCE~INDEX~ALLOC : 3206 
53 4 00142 CLRL SOURCE - “INDEX EXT : 3207 
00000000 BF DF 00144 16$:  PUSHAL : 3215 
1D 8F 9F OO14A PUSHAB #29 
<afehg 8 AD OOF O0131 PUSHAB DSTDATA,-BCFP) 
05 8F 9F 00154 PUSHAB 
01 BF 9F 00157 PUSHAB #1 
000000006 FF 5 FB 15A CALLS #5, FIND_OBJECT 
Ov : E9 00161 BLBC 
6 € ADDL T F 
50 000000006 EF C1 00164 Sots 36-DEF_CURRENT.RO 3217 
60 He b} O16¢ CMPL RCE_BATA_ SCKET. (RO) 
60 08 dd tha MOVL  SOURCE_DATA_BUCKET, (RO) : 3319 | 
eonme «| OF BOTTA oe USHA 37 : S221 
FB OAD 5 po 17D MOVL  DSTDATA, -8( FP) | 
FB AD 9F 00181 PUSHAB =8(FP) 
0 F i 1 PUSHAB # 
1 BF 9F 00187 PUSHAB #1 | 
000000006 FF 5 FB 18A CALLS #3 .FIND_OBJECT | 
Ov 0 £9 00191 BLBC = RO. 228 


g 


K 12 
EDFDESIGN 16-Sep-1984 01:10:30 VAX=-11 Pascal V2.4-277 Pp 15) 
the ht Generated Code g- 900-1388 94:40 6 SP EKSUNSRASTER FEDF “SRC JEDFDESIGN.PASST* (a3 
50 000000006 EF 7 C1 00194 ADDL3 #39,DEF_CURRENT,RO : 3223 
0 8 CO 19¢ tt SOURCE _BATA_ALLOC, (RO) vad 
00000099 F BF 19F 22$ PUSHAL i : 3225 
F 9F OO1A5 PUSHAB #32 
F8 AD 5 DO OO1A8 MOVL  DSTDATA,-8(FP) | 
Fs AD oF 1AC PUSHAB “B(PP) 
05 BFF OOTAE PUSHAB  # | 
1 8F OF 1Be PUSHAB #1 
000000006 FF 3 re 0185 CALLS #9, FIND_OBJECT 
50 000000006 _ EF 7 C1 0O1BF ADDL3 Rs DEF_CURRENT,RO : 3227 
60 9 CO gic? ADDL2 SOURCE_BATA_EXT, (RO) 
aoooonpe fF BF UICA 2us:  PUSHAL hg. ; 3229 
F8 AD gf D0 SibS MOVL  DSTIDX,-8(FP) 
f8 AD 9F 00107 PUSHAB “BFP 
BO SSS 
000000006 a 05 FB O1E0 CALLS #5 FIND OBJECT 
50 000000006 _ EF 27 C1 OO1EA ADDL3 #39, DEF_CURRENT,RO : 3231 
60 A D1 OOiFe CMPL OURCE_INDEX_BUCKET, (RO) ) 
60 gf D0 Oot? MOVL SOURCE _INDEX_BUCKET, (RO) : 3233 
00000009 ef DF OFA 28S: PUSHAL #0, : 3235 
F8 AD 5c 0 00903 OVL  DSTIDX,-8(FP) 
F8 AD 9F 00207 PUSHAB -8(FP) 
as a 
000000006 FF 05 FB 90 19 CALLS #5,.FIND_OBJECT 
50 000000006 _ EF 27 C1 8 1A ADDL3 #39,DEF_CURRENT,RO : 3237 
60 B C0 00 32 ADDL2 SOURCE_INDEX_ALLOC, (RO) 
1000000 BE OBE 00998 USHA #92 Fate 
F8 AD 5¢ 0 00 MOVL  DSTIDX,-8(FP) 
F8 AD 9F 00 PUSHAB -B(FP) 
05 8F 9F 00 PUSHAB 
01 8F 9F 00238 PUSHAB #1 
000000006 FF 5 FB 6 i CALLS > 6f ND_OBJECT 
50 000000006 EF ; C1 0024 ADDL3 #39,DEF_CURRENT,RO : 3241 
§ 3 co 4p ADDL2 SOURCE_INDEX_EXT, (RO) 
2 FC og 0 328: mOVL MAXK YTR3 : 3243 
v 15 00257 BLEG }40s-«34$ 
0000v 33 9 BRW 41$ 
06 C 33$: INCL R 
5B D iF 4$:  MOVL R2,KEYNUM 
00000099 F pF 6 PUSHAL # : 3250 
F 9F 00267 PUSHAB #120 
FC OAD B D0 0026A VL KEYNUM, -4(FP) 
FC AD OF 6f PUSHAB =4(FP) 
F OF PUSHAB #11 
F OF 00274 PUSHAB #1 
000000006 _ EF 5 FB 00277 CALLS #5,FIND_OBJECT 
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yO6-500™ Generated Code se § 


198s 13:50:30 DiSKSVMGMASTERSEEDF-SRCIEDFDESIGN.PASST® (4B | 


aoun- 
se™ 


— 


V 50 €9 0027 BLBC 
- Hi 000000006 i 09 q BOVL DEF CUnnewr T RO : 3252 
00000090 F DF 36$ PUSHAL we : 3254 
D BF OF $5 PUSHAB #125 
FC AD B 0 8 9 MOVL KEYNUM,-4 (FP) 
FC AD 9 00299 PUSHAB =-4(FP) 
0B 8F OF 0 9C PUSHAB #11 
01 F oF oF PUSHAB #1 
000000006 Soy 05 FB 0 Ag CALLS #5,F ND OBJECT 
0 000000006 gf 09 0 AC MOVL _—ODEF cUngew RO : 3256 
27 AO ¢ OD B MOVL DSTIDX 39(RO) 
100000 DBE OME 05RD oe CPUSHAB got28 _— 
FC AD 58 DO 002C0 OVL KEYNUM, <6 (FP) 
FC AD SF 002C4 PUSHAB -4(FP) 
0B 8F 9F 002C7 PUSHAB #11 
01 8F 9F OOZCA PUSHAB #1 
000000006 FF 05 FB oue5e CALLS #5,FIND_OBJECT 
50 000000006 EF DO 00207 MOVL  DEF_CURRENT,RO : 3260 
27 AO C 00 0020 MOVL  DSTIDX,39(RO) 
3 5 BT O0sEe os: Et Regn 
FF72 31 OE? BRW 335 
55 34 D4 OOZEA 41$: CPL SRCDATA,DSTDATA : 3267 
FC AD eC fa 0 Bosee putias enero” : 3269 
0S 8F OF gies PUSHAB 43 
000000006 EF 02 FB 00 9 pat CALLS #2 DELETE PR PRIMARY _ SECTION ie 
00v 13 00303 BEQL 285 ‘ 
FC AD 56 pO 09 05 MOVL SRCIDX,-4(FP) : 3273 
FC AD F Bene PUSHAB -4(FP) 
05 8F SF bp OC PUSHAB #5 
000000006 EF 02 «FB O30F CALLS #2,DELETE_PRIMARY_SECTION 
04 00316 45$: — RET : 3275 
3; Routine Size: 791 bytes, Routine Base: S$CODE + 01008 
0000 SHUFFLE_AREAS ; 3323 
0004 900 WO @M<R2> 
SE 10 ¢2 SUBL2  #16,SP 
01 8F OF 00 PUSHAB : 3336 
000000006 FF FB 8 CALLS #1 SCAN, DEFINI” 10N 
1 000000006 EF p OOF CMPL HIGH. : 3351 
04 000000B¢6 & p 3H CPL ect rT 
F 1 MOV HIGH KEY, TEMP_KEY : 3359 
52 3f emneneeen 2 0 028 3$: MES » TEMP_ KEY, TEMP_ AREA g 3346 
00000003 8F COD 0 PUSHAL : 3368 
FC AD 2 g 3 ADDL3 i AREA, ~4(FP) 
FS AD OF 6 PUSHAB =4 “4ttP 
00000002 8F OF A PUSHAL 
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N 1 
EDF DESIGN 16-Sep-1984 01:10: VAX=11 Pascal V2.4-277 Page 118) 
FOeb00 Generated Code g73e0 719 4 94:40:30 DLSKSVMSMASTER  CEDF -SRCIEDFDESIGN.PAGT (38) | 
Vv 15 00130 BLEQ 21$ 
52 000000006 EF : ct 13 DIVL3 #5,HIGH_KEY,PROLOG_FOR_KEYS ; 1 
50 000000006 EF 6 Q cA 147 EMUL #00 HIGH KEY .RO 3 3448 | 
0 05 001 5 1, Sg” eee | 
Ov 18 001 BGEG =-:'18$ 
50 CO 00159 ADDL2 4#5,R0 
0 05 0015c 188:  TSTL RO 
: v 13 0015 BEQL 
D6 0016 INCL § PROLOG_FOR_KEYS : 3450 
52 «6 00162 218: INCL. PROLOG -FORKEYS + 3457 
50 000000006 EF 01 C1 oi 4 ADDL 3 #1,HIGA_AREA,R + 3463 
5c 0 7 C7 1 ¢ DIVL3 #7.R0,PROLOG.FOR_AREAS 
50 50 00 00 7A 001 EMUL #0.#0.RO,RO : 3465 
50 50 50 07 78 00175 EDIV #7.RO.RO.RO 
50 D5 OO17A TSTL 0 
0Ov 18 0017¢ BGEO ees 
50 07 CO O017E ADDL2 4#7,R0 
50 D3 00181 228:  TSTL RO 
Ov 13 00183 BEQL © 24$ | 
5C 6 00185 INCL  PROLOG_FOR_AREAS : 3467) 
00000000 B&F DF 00187 24$:  PUSHAL #0 + 3473 
soooond® BEB BOR PUSHAB 427 | 
OBE OOF S198 PUSHAS i | 
000000006 EF 05 FB 0019C¢ CALLS #5,FIND_OBJECT 
Ov 50 £9 O01A3 LBC =—_- RO. 26$ | 
00000059 8F DF O01A6 PUSHAL #8 : 3475 
FC AD 52 * Hs a OO1AC ADDL 5 PROLOG_FOR_AREAS , PROLOG_FOR_KEYS,~4 (FP) 
000000806 EF 9F 001B4 PUSHAB IDATA+128 
000000006 _ EF 03 FB OO1BA CALLS #3,MAX_FACTOR 
5c 000000006 EF 27 C1 ~001C1 ADDL3 #39, DEF_CURRENT,R12 
* " §2 Soiee 26$: apple sepia : 3480 
; Routine Size: 461 bytes, Routine Base: SCODE + 0201F 
00000 CALC_ARRAY: : 3526 
O1FC 90000 ~~ ,WORD  *M<R2,R3,R4,R5,R6,R7,RB> 
000000006 FF 9F 00002 PUSHAB SHIFT > 3536 
4 pp 00008 PUSHL | 
000000006 FF F 9000A PUSHAB PAS$FV_OUTPUT 
000000006 EF FB 9010 CALLS #3,PASSWRITE_STRING 
verte RAE PUSH. Ril | 
000000006 ai OF OOOTF PUSHAB PASS$FV_OUTPUT 
000000006 EF FB 00025 CALLS #3,PASSWRITE STRING 
200000006 er 20000008 FF BEES ES aU 
000001186 boy 08 $00 ; iste DATA+280 : 3538 | 
000000006 EF O9 06 a MOVL #2,GRAPH_TYPE ; 3540 
00000006 EF 01 DO 0004A 2%: MOVL § #1,GRAPH_TYPE > 3544 
04 ' 60 00000118G EF CF 00051 3 CASEL IDATA+280,40,44 : st 


B 13 
EDF DESIGN 16*Sep-1984 01:10:30  VAX-11 Pascal V2.4-277 Page 119. E 
thet Generated Code 3-00-1387 93: 40:38 DI SKSVMSMASTERY EDF <SRCJEDFDESIGN.PASST (5B) V 
| 
v 0059 .DISPL 4$ 0 
ay 0038 -DISPL 5$ | 0 
00v 0050 ‘DISPL 10$ | 0 
000Vv 005F {DISPL 11$ 0 
B358Y 5 S38) GRP ial 
000000006 EF FEFEDE36 EF $ 33 0066 4$ MOVC3 183 C.AAP,Y_LA : 3552 0 
OOOOOACG EF 000000146 boy D0 0072 MOVL IDATA+20, [DATA 2 + 3553) 9 
90v000000006 EF 0 3 OOO7F S$: BBC #0 VARIABLE_RECORDS,7$ : 3561 | 0 
000000006 EF FFFFDF35 EF Shy $8 90087 MOVES ‘ 2,C.AAQ, Y-LABEL ; 3563 | 9 
000000006 EF FFFFDF47 EF 6 28 00095 7$: MOVC3 ie C. AAR, Y_LABE ; 3567, 0 
QO0000E8G EF 000000146 aa D0 O00ai 8$: MOVL IDATA+20, [DATA+2 2 : 3569 9 
000000006 EF FFFFDF4E EF 20 28 OOOAE 9$ MOVC3 #32,C.AAS,Y_LABEL : 3577 0 
000000D8G EF 000000146 FF D0 00084 MOVL IDATA+20, IDATA+ZT6 : 3578 9 
000000006 EF FFFFDFSS EF 20 28 000C7 10$ MOVC3 #32,C.AAT,Y_LABEL : 3586 0 
000000C0G EF 000000146 FF D0 00003 MOVL IDATA+20, IDATA+192 : 3587) 9 
000000006 EF FFFFDFSC EF 20 28 00060 11$:  MOVC3 4#32,C.AAU.Y LABEL : 3595 0 
00000088G EF 000000146 EF DO OOdEC MOVL  IDATA+20, 1DATA+136 + 3596 0 
Gov 11 OO0FF 9 BRB 138 | 0 
SC D4 000F9 188; CLRL = R12 : 3606 0 
52 SC DO OOOFB 14$:  MOVL 12,1 0 
56 52 20 C5 OOOFE MULL3 #32.1,R6 : 3610 0 
57 D4 00102 CLRL = R? 0 
53 57 D0 00104 15$: OVL R7,J 0 
000000946 EF 53 01 C1 00107 ADDL3 #1.J, IDATA+148 : 3617 0 
58 53 56 C1 0010F ADDL3 R6.J.R8 : 3618 0 
O4ED CF 00 FB 00113 CALLS #0. PROLOGUES DEPTH 0 
— ee ty FS 00t20 Toute eek igsee | 4 
0658 CF 00 FB 00124 CALLS #0, NATURAL _DEPTH ; 3625) 0 
54 50 D0 00129 MOVL RO TEMP_INTEGER 0 
50 52 20 «¢5 O01¢¢ MULL3 #32,1,R0 ; 3627 | 0 
55 26 50 tke 16$: sove Re TEMP_INT2 8 
57 55 35 th OOLsS ve ADDL RO, TEMP-INT2,R7 ; 3629. 0 
00000000GEF47 OO000000GEF4S 9A 00139 MOVZBL COLOR_ROWCTEMP_INT2],COLOR_PLOTCR7) | 0 
E8 56 1F F3 00146 AOBLEG #31 | 0 
04 00 000001186 Br CF OO14A CASEL IDATA+280, #044 ; 3631) 0 
900v 0152 <DISPL 17$ 0 
Ov 00154 DISPL 18$ 0 
000V 00156 DISPL 208 0 
0000V 0158 DISPL 518 | 0 
sad HE SET apart 333 | 8 
Q00000ACG EF 000000186 FF CO GOISE 178: —ADDL2__DATAS24, 1DATA+172 : 3633 | 0 
QO00000E8G EF 000000186 FF £6 Ole 18$: ADDL2 JDATA+24,, IDATA#232 : 3636, 0 
000000086 EF 000000186 FF 0 aK 198: ADDL2-—_JDATA*24,, IDATA#216 ; 3639 | 0 
| j 
000000C0G EF 000000186 EF CO $18 20$: ADDL2 IDATA+24, 1DATA+192 > 3642 | 0 


EDF DESIGN 1b-8e -1984 :10:30 VAX=-11 Pascal V2.4=-277 Page 120 E 
viteetts Generated Code =300n 138% 03:40:30 SE RSUMGaASTER TEBE SRCJEDFDESIGN.PASCY 38) V 

} 
0Ov 11 0019 BRB 23$ | | 0 
000000886 EF 000000186 FF CO §139 21$:  ADDL2 TDATA*24, IDATA+136 + 3645) 0 
Ov 11 0190 ; BRB $ | 0 
FFS6 5¢ 01 OC £1 0019F Ate ACBL #12,41,R12,14$ 0 
04 001A5 RET : 3656) 0 
; Routine Size: 422 bytes, Routine Base: SCODE + O21EC 
00000 SETUP_GRAPH: 3: 3702 0 
0000 00000 .WORD  *M<> 0 
990000146 EF D4 99008 L _—IDATA+#20 : 3709 0 
0000010G EF 04 0000 CLRL =‘ IDATA+16 : 3710 0 
000000186 EF D4 OO00E CLRL =‘ IDATA+24 : 3711 0 
00v00000000G EF 00 £0 00014 BBS #0, AUTO_TUNE,2$ : 3713 0 
000000006 EF 9F 0001C PUSHAB PASSFV_OUTPUT : 3715 0 
000000006 EF 01 FB 00022 CALLS #1,PASSWRITELN2 0 
02 00000118G EF D1 00029 2$: CMPL _—«IDATA+280,#2 : 3720 0 
00v 12 00030 BNEG 6$ 0 
00000031 8F DF 00032 PUSHAL #49 : 3726 0 
000000006 EF 01 FB 00038 ALLS #1,QUERY 0 
00000032 8F ODF O003F PUSHAL #50 : 3725 0 
000000006 EF 01 FB 00045 CALLS #1,QUERY 0 
3B9ACOFF 86 BF = s«éDF.«0004C PUSHAL #999999999 : 3726 0 
00000000 BF DF 00052 PUSHAL # 0 
000000006 EF 2 FB 00058 CALLS #2,AUTO_SCALE 0 
00v 11 0005F BRB as 0 
00000030 8F DF 00061 6$: PUSHAL #48 : 3732 0 
000000006 _ EF 01 FB 00067 CALLS #1,QUERY 0 
00000038 8F DF OO06E 8$: PUSHAL #56 : 3734 0 
000000006 EF 01 FB 00074 CALLS #1,QUERY 0 
00000017 8F ~=oDF:s«0007B PUSHAL #23 : 3735 0 
000000006 _ EF 01 FB 00081 CALLS #1,QUERY 0 
03 000001186 EF 01 00088 CMPL _—«IDATA+280,#3 ; 3737 0 
OOv 12 0008F BNEG 14$ 0 
00000023 8F DF 00091 PUSHAL #35 : 3741 0 
000000006 _ EF 01 +=FB 90097 CALLS #1,QUERY 0 
00000024 8F ODF 0009E PUSHAL #36 : 3742 0 
000000006 EF 01 FB OO0A4 CALLS #1,QUERY 0 
3B9ACOFF BF DF OOOAB PUSHAL #999999999 > 3743 0 
00000000 8F DF 00081 PUSHAL # 0 
000000006 EF 02 FB 90087 CALLS #2,AUTO_SCALE 0 
00v 11 O00BE BRB 16$ 0 
00000022 8F DF OO0CO 14$:  PUSHAL #34 > 3749 | 0 
000000006 _ EF 1 FB 0006 CALLS #1,QUERY 0 
00000016 —8F DE OO0CD 168: PUSHAL #20 ; 3751 | ¢ 
000000006 EF o1 FB 000D ALLS #1,QUERY ¢ 
0000001D 8F DF QOODA PUSHAL #29 : 3752 i 
000000006 _ EF 01 FB OOE0 CALLS #1,QUERY hi 
00000118G EF D5 OO0E TSTL IDATA+280 3 3754 | 0 
Ov 12 QOED NEQ 2$ | i 
0000002c 8F ODF OODEF PUSHAL #44 ; 3758 | ¢ 
000000006 EF 01 FB O00FS ALLS #1,QUERY ¢ 
0000002 8F ODF OOOF PUSHAL : 3759 | 

000000006 _ EF 1 FB 0010 ALLS #1,QUERY | 
990 0064 8F DF 0010 PUSHAL #1060 : 3760 ¢ 
OO0001F 8F DF 0010F PUSHAL #31 | ¢ 


; Routine Size: 565 bytes, Routine 
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EDF DESIGN 
Ose 600 Generated Code 
00000000G_ EF 
00000028 
00000000G_ EF 
00000040 
000000006 
000001186 
00000044 
000000006 
00000045 
000000006 
00000006 
0000001 
000000006 
000000E4G6 000000106 
000000006 
00000037 
000000006 
0000001A 
000000006 
000000006 
000001186 
00000034 
000000006 
00000035 
000000006 
000000006 
00000001 
000000006 
00000000G EF 
Q0000000G EF 
00000000G_ EF 
0000003E 
00000000G_ EF 
00000000G_ EF 
0000000G_ EF 
0000000G EF 
00V00000000G_ EF 
000000006 
000000006 FE 
5 000001186 
21EC =F 


Base: SCODE + 02392 
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WORD 
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#2, AUTO_SCALE 
2 gAUTO. 
#4 

#1, QUERY 

Tz; 

#1, QUERY 
JDATA+ 280,41 
9$ 

#68 

#1, QUERY 


CUR + "REC 


a, AUTO 
Satarié> fo aTA+228 


#0,ASK_MEAN_RECORD_SIZE 
#1,QUERY 
We é. al 
cecaeur NUMBER 
ies TA+280,4 
2 “query 
#53 
#1 ,QUERY 
MAK_KEY, SIZE 
#2,,AUTO_SCALE 
$94 
#0,ASK_KEY_SIZE 
#0. ASK"KEY~POSITION 
#0. ASK-KEY~DUPS 
#62 
#1, QUERY 
#0; ASK_KEY_COMP 
#0. ASK-REC~ = COMP 
40, ASK~ IDX COMP 
0 ,AUTO. TURE 40$ 
atts PUT 


#1 AR Hal LN2 
oA A+280, M3 


42s 
#0, CALC_ARRAY 


“M<> 
#70 

#1 ,QUERY 

#0,SETUP_ GRAPH 

#1 ,VISIBCE_QUESTION 
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3; 3789 
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the hts Generated Code eet 1 95:40:80 PE EKSUNGAASTER FEDF -SRCJEDFDESIGN.PAS ST 38) \ 

C9 .DISPL 1 | ( 

CB “DISPL 1 | ¢ 

CD *DISPL 1 | ¢ 

Ov CF <DISPL 13$ | ¢ 

0 D1 SDISPL 1 8 | ¢ 

6 0 D “DISPL 1 ¢ 

Ov D SDISPL 15$ ¢ 

0 D DISPL 128 ¢ 

080 009 <DISPL 128 | ¢ 

000v 0008 “DISPL 8$ ¢ 

000Vv 0000 “DISPL 26$ | ( 

d90v O0DF “DISPL $$ | ¢ 

0 6 0€1 “DISPL 128 ¢ 

000v 00E3 -DISPL 7$ ¢ 

080 00€5 “DISPL 128 ¢ 

080 DO0E7 SDISPL 128 ¢ 

080 00E9 SDISPL 128 | ¢ 

000v 000EB <DISPL 24$ ¢ 

080 000ED “DISPL 128 ¢ 

9000v OOOEF “DISPL 5$ ¢ 

000v 31 O00F1 BRW 30$ ¢ 

00000060 8F DF OO0F4 5$ PUSHAL #64 : 3927 ( 

000000006 EF 01 FB OOOFA CALLS #1,QUERY ¢ 

0000v 31 00101 BRW 31$ ¢ 

000000006 EF 00 FB 00104 7$ CALLS #0,ASK_MEAN_RECORD_SIZE : 3929 ¢ 

0000v 31 00108 BRW 31§ ¢ 

000000006 EF 00 FB 00108 8$ CALLS #0,ASK_KEY_SIZE : 3931 ( 

0000v 31 0011 BRW 31§ ( 

00000028 8F ODF 00118 9$ PUSHAL #43 : 3933 ¢ 

000000006 EF 01 =FB OOt1E CALLS #1,QUERY ¢ 

0000v 31 0012 BRW 31§ ¢ 

00000026 8F DF 00128 11$: PUSHAL #38 : 3935 C 

000000006 _ EF 01 FB 001 c CALLS #1,QUERY ¢ 

0000v 31 001 BRW 31$ ¢ 

00000030 8F DF 00138 13$:  PUSHAL #48 : 3937 ¢ 

000000006 EF 01 FB 0013E CALLS #1,QUERY ¢ 

00Ov 11 00145 BRB 31§ ¢ 

000000006 EF 00 FB 00147 15$: CALLS #0,ASK_KEY_POSITION : 3939) ( 

00Ov 11 OO14E BRB 31§ ¢ 

00000038 8F DF 00150 16$:  PUSHAL #56 > 3941 ( 

000000006 EF 01 =FB 00136 CALLS #1,QUERY ( 

0Ov 11 0015D BRBsé318 | ( 

00000022 8F DF O015F 18%:  PUSHAL #34 7 3943, ( 

00000000G_ EF 1 4 3193 CALLS #1 ,QUERY ‘ 
Ov 11 0016¢ BRB 31§ | 

000000006 EF 0 fe a8 208: CALLS #0 ,ASK_KEY_DUPS > 3945) ( 
000000006 EF 3 fs 7 21$: CALLS #0 ASK_REC_COMP > 3947 | 
| 
000000006 EF 0 re H 22$: CALLS #0 ,ASK_KEY_COMP > 3949 | 
000000006 EF 0 re 189 23$: CALLS #0 ASK_IDX_COMP > 3951. 
0000003E 8F OF 135 24$:  PUSHAL #6 ; 3953. 
000000006 EF 1, FB 198 CALLS #1, QUERY | 
Ov 1 19F BRB ig | 
00000037 8F DF OO1A1 26$: = PUSHAL #5 ; 3955 | 
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10-800 Generated Code =300 71387 93:40:38 PE RSUMSMASTER  FEDF -SRCIEDFDESIGN.PASST (38) 
000000006 _ EF 1 Fe 1A7 CALLS #1, QUERY 
Ov 1 1A BRB 
1cc5)—s CF 3 re O18 28$: CALLS #0 ,LINK_RESULTS : 3957 
000000006 EF 1 90 00187 29$: MOVB #1,FIRST_PLOT : 396 
OAIA CF 0 FB 001B CALLS #0,PLOT_GRAPH : 3967) 
Ov 11 IC ae BRB 31§ | 
03 00000086 boy D1 ie 39%: CMPL DATA+168,43 ; 3981 
00v000000006 FF 0 £5 tas BBS #O,LINKED, 37$ | 
5 000001186 ai DY 0106 CMPL JDATAte 0,45 : 3985 | 
Ov 1 100 BEQL 5$ 
1EC CF 00 FB 001DF CALLS #0,CALC_ARRAY : 3987) 
AIA CF 00 FB O01E4 35$: CALLS #0,PLOT-GRAPH : 3989) 
03 000000006 EF 00 E0 OO1E9 37$: BBS #O,LINKED,.+3 
FE68 31 OO1F1 BRW 
000000006 _ EF 00 FB 001F4 CALLS #0,EDFSRESET_SCROLL : 3995. 
04 001FB ET : 3997) 
| 
; Routine Size: 508 bytes, Routine Base: SCODE + 025(7 
00000 SEQ_REL_WORK: 2 4043 
0000 00000 «WORD “M<> | 
0000003D 8F DF 00002 PUSHAL #61 : 4050 | 
000000006 EF 01 FB 00008 ALLS #1,QUERY | 
00000040 8F DF O000F PUSHAL #64 : 4051) 
000000006 EF 01 FB 00015 CALLS #1,QUERY 
00000018 8F DF 0001C PUSHAL #24 : 4052 | 
000000006 EF 01 FB 00022 CALLS #1,QUERY 
00000000G_ EF 00 FB 000¢9 CALLS #0,ASK_MEAN_RECORD_SIZE : 4053 
00000000G_ EF 00 FB 00030 CALLS #0. INIT_DEF ; 4058 | 
Op02 Ss CF 00 FB 00037 CALLS #0,NON_REY_DEF > 4059 | 
04 0003C RET F 4061 | 
3; Routine Size: 61 bytes, Routine Base: S$CODE + 027C3 | 
00000 INDEXED_DESIGN: 2 4112 
001¢ 00000 .WORD  “M<R2,R3,R4> 
52 04 BC 90 00002 MOVB a4 (Rig) .REDESIGN FLAG 
5C 08 BC 90 00006 MOVB ag (RI ),ADD_KEY_FLAG 
00000020 8F DF OOODA PUSHAL #32 5 4124 | 
00000006 EF 01 FB 00010 CALLS #1,QUERY | 
00v000000006 FF 00 E oor S #0, OPTIMIZING, 10$ : 4129 | 
Ov E9 OOOIF BLBC = REDESIGN _FLAG,7$ > 4133 | 
00v 5¢ = E8 000 : LBS ADD _KEY_FLAG. 6S ; 4140 | 
00000021 af DF 000 PUSHAL # > 4142 
000000006 _ EF 1 FB 000 CALLS #1,QUERY | 
53 000000846 Ef 0 0032 6$: MOVL IDATA+132,BEGINING_KEY 2 4144) 
54 3 OD 09 MOVL BEGINING_KEY ENDING_KEY 2 4145 | 
Ov 11 0003C BRB $ 
0000003c 8F DF O003E 7$: PUSHAL #60 2 4153 | 
000000006 _ EF 1 FB 4 CALLS #1,QUERY | 
3 D4 8 CLRL BEGINING KEY 2 4154 | 
54 OOO000FOG EF 1 C3 SUBL3 #1, IDATA#240, ENDING_KEY > 4155 
ov 17 03 BRB 11$ 
01 BF OF 10$:  PUSHAB #1 : 4165 | 
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Routine Base: $CODE + 02800 
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v04= Pascal Compilation Statistics = ep-1986 6:36 DISKSVMSMASTER:CEDF. CAC IEDFDESIGN. PAS; (388 


COMMAND QUALIFIERS 
PASCAL /MACHINE /NODEBUG/NOCHECK/LIS=LIS$:EDFDESIGN/OBJ=OBJ$:EDFDESIGN MSRC$:EDF DESIGN 
oa Sia 1373 eee NOOVERF LOW, NOPOINTERS , NOSUBRANGE ) 


/DEBUG=(NOSYMBOL § .NOTR ce BACK 
NV §spua2 SAT PEN; 1 


SIGN 
/NOCROSS ~REFERENCE ERROR _LIMIT= 85 YN /NOG_ FLOATING /MACHINE CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


COMPILER INTERNAL TIMING 


Phase Faults CPU Time osapees Time 
Initialization 95 00:00.5 0:03.3 
Source soot ysse 2039 Bo 362-8 04:44.4 
Source List 55 00:05.2 00:11.5 
Tree Construction 513 00:03.0 00:08.8 
Flow Analysis 106 00:01.5 00:03.4 
Profit Anal ote 3 Sa 00:05.0 
Context ane ysis 03 00:20.1 00:42.1 
Name Pack ‘ 00:00.6 90:07 -§ 
Code Nokes on 201 00:03.1 00:06. 
Final 288 00:10.3 BO: 64-8 
TOTAL 4058 01:12.4 06:31.0 
COMPILATION STATISTICS 
CPU Time: 01:12.4 (3483 Lines/Minute) 
Elapsed Time:  06:31.0 
Page Faults: 4058 


Compilation Complete 
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